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PREFACE OF THE THIRD EDITION 



Completion of the Third Edition marked the tenth year since the book 
project first started. Materials of the First Edition were the results of 
organizing the class notes of a freshman course I developed and taught. The 
organization of the text was aimed in such a way that (1) materials were 
presented in several levels of depth so that a beginner can quickly acquire a 
basic skill, and (2) a subjective judgement was exercised in the relevancy of 
materials to the intended readers, who will use the ccmputer as a tool in their 
fields but have no desire to become professional programmers. 

The experience of using these materials, class notes and earlier editions 
of the book, seems to bear out this rationale. So the Second Edition simply 
updated the progress in the DEC-10 hardware and softwares. However, during the 
past few years, there have been very significant changes in the computer 
maturity of our student body in Engineering. High school instructions, 
microcomputer projects, hobby electronics all have contributed to this. As a 
result, the changes in the Third Edition involve a great deal more than just 
updating the changes and progress in DEC-10. Specifically: 

(1) Three chapters in PIL and BASIC languages are deleted, and they are 
replaced by chapters in Program Debugging, Modeling and Simulation, and Computer 
Graphics. Only a summary of PIL is retained as an appendix in the Third 
Edition. 

(2) The book is now sharply directed to the goal of using the ccsnputer as 
a system . Therefore, although FORTRAN is the fundamental programming language, 
the book is not intended to be a programming manual. At the School of 
Engineering, this book was used in a second course, after the students have 
their initial instructions in the FORTRAN language. 

(3) In using the computer as a system, the book aims to remedy the most 
neglected and yet the most important phase of computer processing, namely, the 
debugging of a program. Many people still consider that as an art, and cannot 
be taught. The Third Edition makes a serious attempt on the study of program 
debugging. An entire chapter is devoted to that subject. 

(4) The chapter sequence is re-arranged so that the front part of the 
text would be appropriate as a text, and the latter part as a reference. In 
addition, exercise problems have been added to help readers sharpen their 
skills. 

As in the last two editions, I am most indebted to my family. In spite 
of their own busy professional and college schedules, my daughter Deborah and my 
son Daniel found time to read the manuscript and made both teclinical and 
grammatical suggestions. My wife Frances, beside being understanding and 
encouraging, took charge of style review and proof reading, and made suggestions 
that increased the readability immeasurably. Students and colleagues, too 
numerous to list, have been most helpful; their questions, suggestions and 
ideas were indispensable. Finally, I wish to acknowledge the Computer Center at 
the University of Pittsburgh for providing the facilities and environment that 
made this book possible. 

November 23, 1980 

Pittsburgh, Pennsylvania T. W. Sze 



CEIAPTER 1 
INTRODUCTION 



1.1 Batch Processing versus Time-Sharing 

Once upon a time, when a catiputer user wanted to run a program, he would 
have to go through the following steps: 

(1) The user submitted his program and data deck to the Computer Center. 

(2) The decks of cards submitted by different users were stacked 
together to form a batch, each deck with its proper identification. 
All jobs in one batch were then executed in one "run", hence the 
name " batch processing ". The information on the punched cards in a 
batch were first copied into a reel of magnetic tape by means of a 
small and relatively inexpensive computer. The reason for this was 
that the card-input to the main ccsnputer was a slow and therefore 
expensive process. 

(3) The magnetic tape so prepared became the input medium to the main 
computer. At the scheduled time, the jobs in the batch were run and 
the outputs (printouts, cards, tapes, etc.) were obtained. 
Sometimes the outputs were recorded on another reel of magnetic 
tape; then output printing may be done off-line so as not to slow 
down the computer operation. 

(4) The outputs were returned to a designated place of the Computer 
Center for the users to pick up. 

During the execution of a job in one batch, such as to compile and 
execute a FORTRAN program, each job had the undivided service of the entire 
computer, with all of its memory, input and output devices, supporting services 
and library routines. When the next job entered the ccsnputer, that job in turn 
received the total service of the ccxnputer for the duration of the job 
execution, however brief. 

Econcmics and efficiency considerations have led to the techniques of 
multi-programming in batch processing, so that several programs may be executed 
interleavingly v*ien devices required for execution are not in demand at the same 
time, or if a priority of queuing can be clearly established. 

From the point of view of econcany and machine efficiency, batch 
processing indeed represents the best computer utilization because it can serve 
a maximum of users within a given span of time. The prime consideration is then 



CEiAPTER 1 INTRODUCTION 



the efficient usage of computing resources, even if it is done at the expense of 
efficient usage of user resources. Therefore, fran the users' point of view, 
batch processing has many limitations. 

The time interval between sutanitting a card deck to the Computer Center 
and retrieving the results, called the turn- around- time , may vary from several 
minutes to several days. Such long intervals are most frustratinc( to a user 
during the program preparation and debugging stages. A minor error of an 
incorrect punctuation mark in a program can cause a delay of hours or days. 
(>ice the grammatical errors are ranoved, it still requires many successive runs 
to remove logical errors. These consecutive runs cannot be hastenenJ because the 
second run depends on the first, the third depends on the secorxS, and so on. 
That made the debugging stage the most tedious and frustrating part of the 
program development. 

Thus the early work in time-sharing research was motivated by correcting 
the tedious and frustrating process of debugging in the batch mode of operation. 
The reasoning that led to time-sharing was that the human responses and the 
output device responses are very slow in comparison to the logic and computing 
speeds of the ccsnputer; hence, it may be possible to switch the ccxnputer froii 
one user to another and still seem to maintain a continuity at each user's 
station. 

In the time-sharing mode of operation, a computer will service the jobs 
entered at ronote terminals by sequentially giving a short period of time, 
called a time slice , to each job. Once that time slice is exhausted, that 
particular job is returned to the end of the queue to wait for another turn. In 
the meantime, a monitor program will perform the necessary bajkkeeping and 
housekeeping tasks so that when that job receives a time slice iagain frcm the 
compjter, the execution will pick up where it was left off. 

From early 1960 's when the time-sharing system concept was first 
developed , this mode of operation for a computer became widely accepted as an 
augmental mode of operation. However, before very long, it became quickly 
apparent that the major benefit is not the reduction of programmer frustration, 
but an entirely new dimension of problan-solving not possible before, utilizing 
a high degree of interaction between man and machine as a team. The language 
processors and programs may then be so designed that during the execution of a 
program, not only can error messages be sent to the user to aid his debugging, 
but also the user is able to modify his problem solving tactics and procedure as 
he sees the partial results along the way. It is possible then to design 
programs subject to modification by the user during execution time to adapt 
themselves to the condition of the problem. 

Figure 1.1 shows a typical time-sharing computing system hardware 
organization. The configuration consists of a computer located at the Computer 
Center and the communication control, transmission and receiving equipment to 
connect the computer with the users at the remote terminals. The 
data line multiplexer and controller is used to control and direct the schedule 
of time-sharing activities. At the user's terminals, each terminal is connected 
to a data set or modem (modulator- demo dulator) that converts the output signals 
from the terminal into a form suitable for transmission by the communication 
channel. The communication channels are usually commercial telephone networks, 
although in many cases telegraph lines and microwave channels are also used. 
The data set or modon at the receiving end re-converts the transmitted signals 
back to a form suitable for processing by the computer circuits. 

It is also of interest to note that the remoteness of remote terminals is 
only limited by the quality and the economy of the communication equipment. At 
the present level of communication technology, it is commercially practical for 
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Figure 1.1 A Typical Time-Sharing System Hardware Configuration 



4 CHAPTER 1 INTRODUCTION 

a large, centralized computer to serve on danand users scattered over a wide 
area over the world. Thus through the time-sharing use of computer, an entirely 
new "utility" has emerged, just like electricity, gas, or water, to provide the 
users with the computer services v*ien independent ownership of these services 
may be out of reach econcmically to these users. 



1.2 Time-Sharing System at Pitt 

University of Pittsburgh is one of early pioneers in the development of 
time-sharing computer system. Through a federal grant in 1965, the time-sharing 
facilities for the University community were established, using an IBM 360/50 
system. Much of the software supporting facilities was developed in the 
subsequent years, resulting in a system then known collectively as the Pitt 
Time-Sharing System, or the PTSS. 

In 1971, the time-sharing computer at the Pitt Computer Center was 

changed to a multiple HDP-IO system of Digital Equipment Corporation. This 

system has been upgraded and expanded several times, and the present 

configuration is a dual ES;C-1099 system. Figure 1.2 shows the configuration of 
the system. 

As in many similar environments, the current software system is a 
combination of vendor-supplied software and self-developed facilities. The 
readers are referred to the list of references at the end of this chapter for 
details of language processors and other software subsystems. 

The software system of the time-sharing system contains, in addition to 
the language processors, a group of service routines. The most important one 
for the time-sharing operation is the executive system , also called a supervisor 
or a monitor. It is a master program which exercises an overall control on the 
time-sharing activities. It performs the scheduling of users from the queue, 
provides users with proper language processor and peripheral facilities as 
requested by the users, keeps an account of charges, and provides a variety of 
service functions. 

Because of the control it exercises, the monitor is the highest-ranking 
program in the software system. The monitor controlls and dispatches a group of 
processors, collectively called the CUSP (Commonly Used System Programs) , among 
which are the language processors such as BASIC and FORTRAN. In turn, under the 
control of each CUSP is a subgroup of routines for the execution and/or 
interpreting of the instruction set of the CUSP. Thus the software system has a 
distinct hierarchy structure, and this is shown in Figure 1.3. 

There are several points regarding the software system structure worthy 
of note: 

(1) There are three levels of hierarchy: the monitor level, the CUSP 
level, and the sub-CUSP level. The monitor level is the highest. 

(2) It is a conmon practice in a time-sharing system for the computer to 
supply a prcmpting symbol through the user's terminal to indicate that the 
computer is ready to accept a command or input data. In the time-sharing system 
of EEC-10 system, different hierarchies use different types of prompt symbols: 
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Reprinted by permission. Reference 6 
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(3) When such a prompt symbol appears on the user's terminal, the 
computer is ready for a command or information, and the user must type in a 
command or data and terminate the typing with a carriage return. However, when 
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a program contains a number of such conmand/ input breakpoints, it becomes 
difficult for the user to keep track exactly what ccnunand/ input is expected at 
each breakpoint. It is therefore necessary for the program to be designed so 
that a statement of instruction or prompting message is printed on the terminal 
at each breakpoint in order to guide the user. The following shows a typical 
example: (user's typing in italics) 

Explanation 



ENTER OPTION NUMBER BEIiCW: -— — i A pronpting statement 

NO SUCH OPTION, TRY AGAIN! ( Convention used in this book: 




^^ER OPTION NUMBER BEIX]W: -^ ^'.o.t in italics = user's typing 

ENTER NUMBER OF VARIABLES: —J Ll 't^V'l^^ ^^^"""l . , , 

.. Other text = computer printout 

Thus, the combination of the prompting statement, the pronpting symbol and the 
user's response constitutes a man-machine interaction, and is referred to as a 
man-machine dialogue . Programs using extensive dialogues to guide the users are 
called conversational programs . 

(4) It is not possible to transfer directly from one CUSP-level language 
processor to another without first returning to the monitor. This transfer can 
be made conveniently by providing a special control key on the remote terminal 
kei^oard. See Section 1.6 for the function of various keys on the keyboard. 



1.3 Computer Service 

The computing facilities in an acadonic institution are generally 
provided to serve a combination of instruction, research and administration 
functions. When the facilties are shared by different users for different 
functions, it is necessary to establish rules and regulations so that the 
resources may be most efficiently and equitably utilized. While it is outside 
the scope of this book to enumerate these rules and regulations, it is important 
for every user to be familiar with them. These include such matters as 
ajplication procedures, allocation of ccxnputing time and resources, restrictions 
placed on the computing services, fiscal arrangements, ethical and legal 
stipulations regarding security, propriety and relevance of work using the 
computing resources, and policy on computer abuses. 

^^lication procedures are generally defined by the Computer Center to 
determine the eligibility and extent of computer usage of an applicant. The 
application requires certain pertinent facts and the usual authorizing 
signatures. Readers are referred to their respective Computer Centers for 
current procedural details. 

When an application is accepted, the applicant is assigned a pair of 
identifying numbers: 

[ m , n ] 

vi^iere m = a 6-digit (octal) project number, and 

n = a 6-digit (octal) programmer (user) number. 

The combination of these two numbers, referred to as the project-programmer 
numbers, is often abbreviated either as PTO or as P,PN. Note that a PPN is 
usually enclosed in a pair of square brackets. 
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REMOTE TERMINALS 



1.4 Communication with the Computer 

A remote terminal is used as an input or output device at the control of 
the user. Generally, it is a typewriter-like device with a keykxjard, a typing 
or displaying element, and the interface between the user and the system. The 
performance of the remote terminals depends to a large extent upon the 
coimiunication linkage between the terminals and the computer. Hence, some of 
the basic concepts and terminology will be described here to aid the 
understanding of a time-sharing terminal. 

(1) Transmission line 

Depending on the modes of information transmission, the transmission 
lines, also called channels, are classified as simplex, half-duplex, and 
full-duplex. A simplex channel can transmit information in one direction only. 
A half -duplex channel can transmit information in either direction, but only in 
one direction at a time. A full-duplex channel can transmit information in both 
directions at the same time. 

Depending on the physical connections, transmission lines may be 
classified as dedicated, shared, hard-wired or dial-up lines. A dedicated line 
or channel is one assigned for the exclusive use of the terminal. A shared line 
is one assigned to the use of several terminals. A hard-wired line connects 
physically frcm the terminal to the system. A dial-up line is a shared line 
using the commercial dial telephone network for connection. 

(2) Information code 

Information to be transferred externally between a terminal and a 
computer on the transmission line is represented by character sets consisting of 
alj*iabetic characters, both upper and lower cases, numeric characters, 
punctuation marks and special characters. In addition, signals representing 
control action of transmission and processing are coded into "control 
characters". These information characters and control characters may be coded 
into a series of binary digits (called bits) so that infonaation may be 
transmitted and processed by the computer and the terminals. Several systems of 
codes are in use. The code format used in most U.S. -made non-IBM machines, 
including the systems at Pitt, is the ASCII* code, which encodes 128 characters 
into 7 binary digits. Table 1.1 shows the ASCII code assignment of characters, 
where the code assignments are given in octal numbers. For example, the upper 
case letter "A" is coded as octal 101, or actually as 7-bit binary 
representation of 1000001. 

Note that the character set shown in Table 1.1 is the ASCII 
information-character set, which is a subset of the complete ASCII code of 128 
characters. The 32 characters not shown in Table 1.1 are all control 
characters. With T^CII code, the words PITT and Pitt are tiien transmitted 
respectively as: 

10100000 1001001 1010100 1010100 (PITT) 

10100000 1101001 1110100 1110100 (Pitt) 



*Acronym for American Standard Code for I^nformation Interchange, usually 
pronunced as "AS-KEY". 
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The code assignments of octal numbers from 000 to 037 
are for control characters, and are normally of no concern 
to an average user. However, certain control characters 
pertain to printer control, and It will be useful to know 
their code assignments. These are: 

Line Feed 012 Form Feed 014 

Vertical Tab 013 Carriage Return 015 

Horizontal Tab 021 



Table 1.1 ASCII Character Set 

All numbers in octal codes. 
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In an actual transmission, each ASCII-coded character is packed together 
with additional bits that perform functions of synchronization (START and STOP 
of each character) , error-checking (parity bit) , and filler or dummy bit (to 
allow slower mechanical components to catch up with electrical and electronic 
components) . The result is either an 11-bit group (for low-speed transmission) 
or a 10-bit group (for higher speed transmission) for each character 
transmitted . 

Not all computers made in U.S. use the ASCII code. The IBM computers, 
such as System/360 and System/370 machines use a code system called EBCDIC 
(Extended Binary Coded Decimal I^nterchange Code) to adapt to its byte-structure 
(1 byte=8 bits) . Hence, output media, such as magnetic tapes, are not 
compatible between ASCII-code machines and EBCDIC-coded machines v?ithout first 
going through a code conversion process. Because of wide-spread use of both 
code systems, such a code conversion routine is a part of standard service 
routines available at the Computer Center. For the same reason, a remote 
terminal wired to accept the EBCDIC code cannot be used in the DEC-10 system 
unless it is re-wired or it has a switchable option of code selection. 

While the ASCII code has been adopted as the American standard for 
peripheral ccmmunication, it has shortcomings in certain particular 
applications. For example, the internal representation of a FOR']PRAN variable 
would be very awkward in a machine such as the DEC-10 with a 36-bit memory word 
format. Since the standard FORTRAN defines a variable name to contain one to 
six characters, an ASCII-coded six-character FORTRAN variable name will require 
42 bits or 2 memory words for its storage, a rather inefficient usage. As seen 
in the Table 1.1, if we forego the difference between the upper and the lower 
cases of alphabetic characters, we can omit the right-hand column in that table. 
This wDuld reduce the character set to only 64 characters. Since each of the 
64-character set may be uniquely defined by a coding scheme of six binary 
digits, this results in a Sixbit Code . With each character code only six bits 
long, a six-character FORTRAN variable name can now fit snugly into a single 
36-bit word. In this coding system, any lower case alphabetic character, when 
encountered, will be automatically coded as its upper case equivalent. The code 
assignment of each character in the Sixbit Code will not be tabulated here, but 
will be given later in Chapter 3 (FORTRAN-10) vrfiere its reference will be more 
relevant. The derivation of the Sixbit Code of a character frc«n the 7-bit ASCII 
code may be obtained simply by dropping the second bit (counting from the left) . 
For example, the letter "A" is coded as 1000001 in ASCII code, and is 100001 in 
Sixbit. Alternately, the Sixbit Code can be "computed" from the ASCII code by 
either of the following algorithm: 

(SIXBIT) = (ASCII) - 040 in octal arithmetic 
(SIXBIT) = (ASCII) + 040 in octal arithmetic 

and then retain the two least significant octal digits. 

Thus, the letter "A" is coded as octal 101 in ASCII, and as octal 41 in 
Sixbit. 
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(3) Speed of transmission 

The speed of transmission of the signal is measured by the rate of 
transmission in signals per second, expressed in bauds* . In binary 
transmission, each signal contains one bit of information, and consequently the 
speed of signal transmission is numerically the same as the speed of information 
transmission. Thus a 300-baud line will transmit information at a rate of 300 
bits/second. However, in polyphase modulation, each of the four predetermined 
E*iase-shifts represents two bits of information, and a 300-baud line will 
transmit information at a rate of 600 bits/second. Capability of ccxnmercial 
transmission services, such as telephone or telegraph lines, ranges from 100 to 
several hundred thousand bauds. The maximum capability of a "voice grade" 
dial-up telephone line is about 2000 bauds. 

In a time-sharing system, information transfer may be initiated or 
terminated at the terminal. The ASCII coded 7-bit signals arriving at or 
departing fran a terminal are packed with additional bits to perform functions 
of synchronization and parity error checking. The result is an 11-bit group for 
each ASCII character for 110-baud transmission, or a 10-bit group for 150 or 300 
baud rate transmission. These transmission speeds are used to match the 
terminal output speed of 10, 15 or 30 characters/second respectively. 

Since the renote terminals generate and receive information at relatively 
low speed, the capability of the transmission line is hardly taxed. 
Consequently, various line-sharing techniques are available, one of which 
involves the use of a concentrator . A concentrator is usually a miniccroputer 
which collects information from several terminals in the area at a low speed, 
and then packs them and re-transmits. In the reversed direction, a concentrator 
receives information and distributes them to different terminals. 



1.5 Description of a Remote Terminal, the DEC LA36 DECwriter 

For several decades, the most commonly used communication terminals have 
been the Automatic Send-Receive Teletypewriter Set (ASR) , model 33, 35 or 38. 
These are called ASR33, ASR35, and ASR38, and in most cases, simply Teletype ®. 
In fact, the standard abbreviation for terminal-like device in a ccmputing 
system has been uniformly taken as TTY. 

Rapid recent advances in technology have produced new generations of 
remote terminals. Relay circuits were replaced by transistorized circuits, 
which in turn are being replaced by microprocessors or microprogrammed 
controllers with semiconductor memory. Mechanical components are improved so 
that they are lighter and move faster. Clunsy typing heads with embossed 
characters are replaced with matrix wire impact printing, thermal or 
electrostatic non- impact printing. While the technological advances have made 
new generations of terminals lighter, faster, less expensive and more reliable, 
the basic operating principles procedures ranain essentially unchanged, thanks 
to the tremendous steadying effect of Teletypes as the industry workhorse over 
the last three to four decades. It is therefore possible in the present 
discussion of ranote terminals to deal specifically with one particular terminal 
and still retain generality of our discussion. It also means that although this 
presentation pertains to only one model of terminal, extension of the discussion 



*Named after the French inventor of the telegraph code, Jean-Maurice-Emile 
Baudot, 1845-1903 

® Registered trade mark, TELETYPE Corporation, Skokie, Illinois. 
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to another make or model would be no problem. This is why we will now 
concentrate on one particular terminal, the DEC LA36 DECwriter, for the 
subsequent discussion. 

A remote terminal contains generally four major parts. They are the 
keyboard unit, the printer unit, the print control unit, and ths call control 
unit. A simplified block diagram, with the important ccxnponents within each 
part, is shown in Figure 1.4. The arrows in the diagram show the direction of 
signal flow and/or control when the terminal is connected to a computer. Its 
operation can be described briefly in this manner: 

When the user strikes a key on the keyboard, say the upper case "A", the 
kejtoard electronics encodes it into the ASCII code of signal 1000001. These 
electric signals are sent to the transmitter unit, in vrtiich additional 
start-bit, stop-bit, parity-bit and filler-bit {if needed) are added. The 
communication electronics in the transmitter transform these signals into 
modulated audio tones, vrfiich are transmitted serially through the interface to 
the computer over a transmission line. At the computer end, a buffer (or 
temporary) memory accepts the character after checking over any transmission 
error, repacks the character with start-, stop-, parity- and filler-bits, and 
re- transmits back to the terminal . When it reaches the terminal, the receiver 
demodulates the signals by removing the audio carrier, checks for any 
transmission error, and deposits the 7-bit ASCII code of "A" in the buffer 
memory. 

When the printer unit is ready to accept a 
character, controlled by the printer control unit, 
the ASCII code inputs are sent to the character 
generator RDM (Read CSily Memory, a semiconductor 
manory chip) which produces seven one-or-zero 
signals simultaneously 7 consecutive times. Each 
7-signal group, after amplification, selectively 
actuates by solenoids vertically arranged wires to 
strike an inked ribbon, leaving a vertical column of 
selectively placed dots in that column. 

This is repeated seven times, each time with the print head moving 
slightly to the right, and each time producing a different vertical pattern. 
The result is shown here. This is called a 7x7 dot matrix print. 

It is interesting to note that the signals generated at the keyboard take 
a circuitous route before finally printed on the terminal printer, in fact, 
what is printed is actually what the computer thought the user has typed. This 
is a clever way of involving the user as a part of error-checking system, and is 
a standard feature in time-sharing system called echo print . 

The individual parts of the DECwriter will now be described next: 

(1) Print unit 

The print unit is the receiving ccmponent of the terminal. It consists 
of seven vertically arranged print wires actuated by seven solenoids, which in 
turn are controlled by the character generator ROM as explained k>efore. Other 
useful information about the print unit are as follows: 
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Figure 1.4 Block Diagrarn of a Typical Remote Tenninal 
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Figure 1.5 Standard ANSI Keyboard Layout 
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Paper size: 3" minimum, 14" maximum width 

Print field: 132 characters maximum 

Print spacing: 10 character/ inch horizontal, 

6 lines/inch vertical spacings 
Print characters: 96 upper/lower case ASCII 

7x7 dot matrix (0.07x0.10 inch) 
Print speeds: switch selectable at 10, 15 or 30 

characters/second with 60 char/sec 

catch-up mode* 

(2) Print control unit 

The print control unit contains a buffer memory that accepts ASCII 
character codes received and a control logic unit v^ich is a microprograiraned 
controller. Under the control of the microprogram, characters in the buffer are 
presented to the character generator on a first- in/first-out basis. The 
microprogram activates the carriage servo system and the print head system to 
control the mechanical movonents. It also detects signals and actuates 
mechanisms such as line feed to advance the paper, ringing the bell for an 
error, etc. 

(3) Call control unit 

The call control unit consists of an asynchronous receiver-transmitter 
and a ccwnmunication interface. It initiates, accepts, controls and completes 
the incoming and outgoing trananission of information. 

(4) Ke^ipoard 

The keyboard is the information-sending ccxnponent of the terminal. The 
mechanical linkages and electrical contacts translate the key action into a 
groLp of electrical signals. The arrangement of keys on the keyboard resembles 
that of a conventional typewriter with additional special features. These are 
discussed in a later section in this chapter. 

Those terminals called ASR's (Automatic Send-Receive Sets) contain, in 
addition to the four units mentioned above, one of the following auxiliary 
input/output units: paper tape reader /punch, or tape cassette player/recorder, 
or floppy disk with read/write electronics. These serve as storage media for 
the terminal. 

There are several switches placed adjacent to the keyboard vAiich allow a 
user to power-up, select the transmission rate, and choose on-line or local 
operation. In local operation, a terminal will function as a typewriter, 
allowing a user to add information to the printout. It also permits maintenance 
work and testing of a terminal without disturbing the computer. For ASR-type 
terminal with either paper tape, digital cassette or floppy disk, the IDCAL 
position permits the ASR to be used as an off-line input/output device for such 
task as preparing, editing, reproducing and printing paper tapes, cassette 
tapes, or floppy disks. 



*While the time-consuming action of carriage return, tab or line feed is taking 
place, characters received are stored in the buffer. When mechanical action is 
finished, characters in the buffer will onpty into the printer unit at 60 
char/sec catch-up speed. 
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1.6 The Keyboard 

The keyboard arrangonent of the EECwriter follows the ANSI (American 
National Standard Institute) standard. It has a format very similar to the 
conventional typewriter. Figure 1.5 shows a keyboard of the lECwriter. 

(1) Alphabetic characters 

Key positions of alphabetic characters are identical to those on a 
conventional typewriter. Both upper and lower cases are available. However, 
transmission of alphabetic characters are generally done in UE^)er cases, unless 
specifically commanded to transmit as lower cases. Thus, pressing an alj^abetic 
key without the shift key will transmit and print an upper case letter. 

(2) Numeric and special characters 

The character set on the EfiCwriter keyboard consists of the following: 

AlE*iabetic : ABCDEFGHIJKLM 

NOPQRSTUVWXYZ 

Numeric: 0123456789 

Special: +_*/()=•> $% -g^ 

(The underscore symbol _ is replaced with the left 
arrow symbol •<- on certain keyboards.) 

(3) Control keys 

Certain special keys perform control functions: 

a. LINE FEED This key will cause the terminal paper to 
advance one line. When the terminal is operated on DXAL, the 
carriage return does not automatically advance the paper, and the 
LINE FEED key must be pressed to do it. 

b. RETURN This key will return the print head and 
carriage. When the terminal is on line, returning the carriage 
return signifies the end of a unit of information, for example, an 
instruction to the computer. The computer will automatically 
respond with a line-feed control signal to advance the paper. 

c. DELETE This key permits the correction of typing 
errors on a line if the carriage has not yet been returned. This 
key is marked as RUBOUT on some older keyboards. When the DELETE 
key is pressed successively for n number of times, the last n 
characters typed (including spaces) will be deleted. As a signal to 
the user which characters are being deleted, the terminal will print 
out the deleted character each time the DELETE key is pressed. 
Also, before the first deleted character and after the last deleted 
character, a back slash "\" is printed. Thus the pair of back 
slashes serves as delimiters bracketing the string of deleted 
characters. 
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For example, if the following has been typed on the terminal: 
FOUR SCORE AND SEVIN YE 



Carriage position when mis-spelling 
in SEVIN is discoverd. 

In order to delete the five character "IN YE", five successive 
EELETEs are required. Notice that a space or blank is also 
considered a character. To correct the typing, the user will EELETE 
five times and then retype the corrections. Qi the printout at the 
terminal, it will appear like this: 



FOUR SCORE AND SEVIN YEXEY NI\EN YEARS AGO, OUR FATHER; . .. 

T 

printout when resume typing 



First EELETE — 
Second EELETE 
Third EELETE 
Fourth EELETE 
Fifth rSLETE 



As shown in the example, a pair of back slashes brackets the deleted 
characters printed in the order of deletion (from right to left) . 



d. REPEAT This key, \ihen operated together with another 
character key, will cause a repetition of that character to be 
printed (for DXAL operation) , or a repetion of that character to be 
transmitted and echo-printed (for on-line operation) . For example, 
when the REPEAT and K keys are pressed down together, a string of 
K's will be sent and printed as long as both keys are held down. 

e. SHIFT, SHIFT LOCK These keys have identical functions as those on 
a conventional typewriter, and will cause the upper case character 
marked on the key to be printed or transmitted. 

f . ESC This key, appearing on older keylooards as an 
AIMCDE key, directs the computer to treat the next received 
character as a command. The precise meaning of the ESC-character 
combination is defined by the software system atiploying this 
function. 

g. BACK SPACE Depending on the software processor used at the 
time, the back space key either makes the last character sent to the 
computer available for deletion or correction, or makes it possible 
to overprint with a different character such as underscoring a 
certain text string. 

h. TAB This key will direct the ccxnputer to advance 

the print head to the next tab stop. 

i, BREAK Used for half-duplex transmission mode to 

interrupt reception of data froti the ccmputer. Ignored in ordinary 
full-diplex mode. 
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(4) Control characters 

The key CTE^, when used together with an alphabetic character key, 
generates a code combination for control purposes. Such a combination of CTRL 
and alphabetic keys does not have any printing function, and therefore the 
computer will return an echo signal printed out on the user's terminal to inform 
him of the nature of the control function. The echo print has a format of """ 
(a circumflex) or "T" (an up arrow) followed by the character used, such as "C 
or TC. These control characters will appear in this book frequently, and they 
will be referred to in several ways. For example, the control character C will 
be referred to as: 

CaWROL-C 
CTRL-C 
or, "C (or, +C ) 

Although there are 26 control characters, a beginning user need only be familiar 
with a few of them, and they are "C, "O, "U, "l, "L, and ''R. Several other 
control characters, such as "S and "Q, will be explained at appropriate places 
where they are used. 

a. CTRL-C ("O The 'C key interrupts the program and returns 
the control to the system monitor. If a program execution is in 
progress, apply "C twice or more to interrupt it. The first "C 
stops the execution of the program, and the second one (and the 
succeeding ones) returns control to the system monitor. When the 
system monitor obtains the control, a prcsnpt symbol (a period) is 
printed on the terminal, and the system awaits for a monitor 
ccstimand. 

b. CTRL-0 ("O) The '"O key suppresses the terminal output 
without interrupting the execution of a program. For example, when 
debugging a program, if you only want to see whether a program 
execution reaches the end, you can suppress all or specific parts of 
the put in order to avoid time-consuming printing of the results. 
Thus any time vrfien output begins to appear, applying CTRL-0 will 
suppress the remaining portion of that output. 

c. CTRL-0 ("u) The "U key, applied at the end of one line of 
typing, will instruct the computer to ignore the entire line and 
therefore to perform the function of deleting that line. The system 
will respond with a carriage return and a linefeed, but no pranpt 
symbol. 

d. CTRL-I (^I) Terminal will tab to a pre-set column, 

e. CTRL-R ("R) Terminal will re-type the current line. 

f. CTRL-L ("L) This control character tells the ccstiputer to 
advance the paper to a new page. On a DECwriter terminal, it will 
advance the paper only 8 lines. 

The keys for these functions are summarized in Table 1.2. 
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Special Key 



LINE FEED 

RETURN 

DELETE (or RUBOUT) 

REPEAT 

CTRL-C 

CTRL-0 

CTRL-U 

CTRL -I 

CTRL-R 

CTRL-L 



Echo Print 
If any 



/X 

'C 
'0 
^U 



Function 



Move paper up one line. 

Return the carriage. 

Delete character immediately before. 

Repeat a character or a function. 
Return to monitor mode. 
Suppress current terminal output. 
Ignore the current line input. 
Tab to a preset column. 
Retype the current line. 
Advance paper on terminal 8 lines. 



Table 1.2 Function of Selected Special Keys 



1 . 7 Other Types of Remote Terminals 

The DECwriter terminal as described in the previous section is a 
Iteyboard printer terminal. The majority of ronote terminals used in a 
time-sharing system are of this type. A variation of this, type is the portable 
terminal, which incorporates in a single carrying case an acoustic coupler (for 
connecting the terminal to the computer by a telephone set) , a l<eyboard, a 
printer and associated electronics. One ingenious product inclijdes an acoustic 
coupler, a keyboard, and associated electronics, but no printer. It malces use 
of a conventional television set, and when ccmbined, it becomes a time-sharing 
terminal . 

As a result of rapid advances in MOS/LSI (metal oxide saniconductor and 
large-scale integrated circuits) technology, the size, weight and cost of 
electronic components and systems have been greatly reduced. These advances 
have caused rapid developement of other types of terminals, and they are briefly 
discussued next: 



(1) Cathode ray tube (CRT) terminal 

The convenience of a keyboard operating terminal is greatly enhanced if 
we use a cathode ray tube (CRT) terminal for the purpose of communication with 
the computer, preparation of programs and debugging. This is particularly 
useful if the user has an alternate means of producing hard copy as records. 
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A typical CRT terminal, also called a scope terminal, displays a subset 

of ASCII characters (such as upper 
cases of alphabet plus symbols) . 
The display unit is similar to 
that used in an oscilloscope or 
television set. Other than the 
display unit and its control 
memory, it has the same 
organization as a keyboard printer 
terminal. Figure 1.6 shows a 
block diagram of a typical CRT 
terminal. If we compare this with 
Figure 1.4, we can see the obvious 
resemblance . 
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Figure 1.6 



Block diagram of 
CRT Terminal 



A 



The CRT produces an image 
by directing an electron beam 
against a phosphor-coated screen 
which emits light when struck by 
electrons. The control on the 
beam intensity can turn the beam 
completely off, thus allowing no 
electrons to strike the screen, a 
process called blanking . 
Positioning the beam in a CRT 
terminal is usually done by the 
raster scan metliod. The beam is 
first positioned at the upper left 
corner of the screen; it then 
moves across the tube face, 
producing a straight line. The 
beam is blanked while returning to 
the left at a level one line 
lower. The blanking is turned 
off, and a second line is traced. This is the same method used in a commercial 
television set that scans 525 lines/frame and at a rate of 1/30 second per 
frame. Forming characters on screen is very similar to the dot matrix print of 
a keyboard printer terminal. The scan scheme will position the rectangular area 
within which the character is displayed. The character, through, a character 
generator RDM (read-only-memory) , formulates a 5x7 dot matrix, with dots 
emitting light v^ien the electron beam strikes the tube phosphor. Typically, the 
light-emitting period is very brief, ranging from microsecond to millisecond 
range. Therefore, a CRT using the scan method requires a refres h mamory that 
stores the display and re-display at a refresh rate large enough to provide a 
constant intensity image and to eliminate flicker in the image. 

Most CRT terminals are also teletype-compatible, and they are often 
interchangeable with keyboard printer type terminals. With no carriage, a CRT 
terminal is provided with a cursor , which may blink on and off to indicate the 
current position of the beam. The associated cursor control enables the user to 
move the cursor up, down, left or right, or to erase the screen. Unlike the 
teletype, data rolling off the top of a CRT screen are lost to the user. The 
operations of a CRT terminal and a keyboard printer terminal are very similar. 
A person familiar with the operation of a keyboard printer termi.nal should have 
no problem with CRT terminal operation. 



(2) Graphics ter minal 

This is a terminal which maintains the capability of displaying not only 
characters, but also arbitrary figures. All of the man-machine interaction 
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previously described are retained, and the interaction is expandesd to include 
the clarity of graphics. 

When a graphics terminal displays characters, it emulates a CRT terminal, 
and outwardly it operates just like a CRT terminal. When a graphics terminal 
operates in the graphics mode, it provides both control of beam position and 
blanking. In the position control, the beam is deflected fran a current 
position to another. If the blanking is on, only two end points are shown on 
the screen. If the blanking is off and if the terminal is 6;quipped with a 
"linear interpolation vector generator," the electron beam will trace a straight 
line. Repeated programmed positionings of the beam, with blanking on or off as 
required, will produce a line drawing. 

Graphics terminals normally utilize a cathode ray tube display, but some 
low cost units use a storage tube to retain the data which does not require a 
refresh memory. The disadvantage of the storage graphics display is that 
dynamic display and removing graphic information are not ipossible: any 
subtractive change of displayed data requires first an erasure of the entire 
im^e, and then a reconstruction of a new image, an event that will take at 
least half a second. Thus a storage tube may display at a maximum rate of about 
2 frames per second, not a satisfactory speed to depict motion,, On the other 
hand, graphics terminal using refresh memory imposes a heavy burden of matiory 
and software support for its image generation and constant refresh. The heavy 
requirements of memory and software usually call for a minicanputer to provide 
the support. 

(3) Intelligent terminal 

For years, manufacturers have been offering terminal systems with fixed 
functional capability. For example, a terminal designed to be ccxnpatible with 
the IKd systems, vrtiich use a different character coding system (EBCDIC Code) , is 
not compatible to a system using the ASCII code unless extensive re-wiring is 
done. 

The rapid recent advances in MOS/LSI technology have now miade it possible 
to incorporate microprocessors and monories, which greatly expand the 
flexibility and capability of a terminal. Instead of a simple function of 
transmitting and receiving data or programs, a terminal may now have additional 
processing power. Acquiring such additional processing power within the 
terminal is referred to as "making the terminal more intelligent", and therefore 
the name " intelligent terminal ." Quite predictably, a terminal without 
additional built-in intelligence is called a " dumb terminal ." 

Intelligence in a terminal may take on many forms. It ranges from the 
simple ability of changing operating characteristics of the terminal to the 
powsr of a full-scale microccanputer . Intelligent terminals therefore are able 
to onulate many different ccxnmunication line procedures and oDdes, so that a 
terminal may be coded to adjust to an existing line protocol and procedure. For 
many other various functions, the terminal may be tailored to suit the need of 
the particular user or industry segment by providing specific software for the 
intelligent terminal. For example, an editing program may be installed in the 
intelligent terminal so that the terminal becanes a word-processing machine. 
Word-processing tasks may then be carried out without loading down the central 
ccmputer. Another example is an intelligent graphics terminal where the 
graphics are processed by a built-in graphic processor in the terminal. Again, 
in this way, the central ccxnputer will not be loaded down with detailed chores. 

The main disadvantage of an intelligent terminal, at the time vAien the 
third edition of this book is being prepared, is its cost, although the gap is 
rapidly narrowing. In applications v*iere only simple functions are required. 



To Sign On 



21 



dumb terminals are more cost effective. In time, the difference in cost will 
become insignificant, and the intelligence of the intelligent terminal will be 
greatly expanded. The experiences of the hand calculator industry can very well 
be repeated in the remote terminal industry within the next decade. At the 
present time, the applications have been limited to such areas as point-of-sale 
credit authorization, bank teller systems, stock brokerages, airline reservation 
systems, hospital admissions, etc., vdiere distributed data processing is highly 
desirable. 



1.8 Sign-On at the Remote Terminal 

Once a user has a valid pair of ID nun\bers (the PHd) and has a valid 
password, he may now sign on at any ranote terminal by following the procedure 
outlined below: 



Hard-Wired Units 



(1) Turn on switches. Press C if 
there is no prompt symbol ".". 
After the prompt "." appears, 
type "I" (for INITIATE) and 
the following lines will be 
typed out on the terminal: 



Dial-up Units 



(1) Turn on switches and dial the 
computer number.* If the line 
is busy, there is a usual busy 
signal. When the call gets 
through, a high-pitch tone can 
be heard. Place the phone set 
on the seat of the acoustic 
coupler. Wait until the READY 
or CARRIER light comes on, 
type C, and the following two 
lines will be typed out on the 
terminal : 



PITT DEC-1099/A 63A.41B 15:36:41 TTY43 system 1237/1240 
PLEASE IjOGIN OR ATTACH 



where "1099/A" indicates System A, "63A.41B" the monitor version, "15:36:41" the 
time of the day in 24-hour clock, "TrY43" the line number assigned. If "1099/B" 
appears instead of "1099/A", it means the user is in touch with System B. If 
the user finds himself in a wrong system, he requests a change by typing: 



TTY SYSTEM B 



TTY SYSTEM A 



after the prompt symbol. 

(2) Type the monitor canmand after the prcxnpt symbol: 



LOGIN m,n ; 



lOGIN m/n ; 



vrfiere m = project number, 
J = carriage return. 



n = programmer number. 



The difference between "m,n" and "n\/n" in the two monitor ccxnmands is that the 
latter form will suppress the message of the day from the Computer Center when 
the sign-on procedure is completed. It is possible that you have seen the 
message several times already, and may not care to read it another time. 



*For University of Pittsburgh users, dial (412) 621-5954. 
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The carriage return is a standard control signal to inSicate to the 
computer the termination of a line, a command or a message. To avoid cluttering 
the text and to relieve the typing problan, the carriage return symbol " " will 
be used only in Chapter 1. For the remainder of the book, the readers should 
assume that there is always a carriage return at the end of every line. 

(3) Enter the password when requested. The password will ibe entered in a 
non-print mode, and the typed password will not appear on the teriTiinal. This is 
to maintain the security of the password. 

If the entered password is an incorrect or invalid one, the system will 
respond with an error message and a request for the PEN. After supplying the 
PPN again, another password request will be made by the conputer. The user has 
five chances to sign on correctly. After that number of unsuccessful trials, 
the job is killed, and the user must restart the entire procedure to sign on. 

If the password is found to be valid, the system will respond with 
information on the status of the project, the last sign-on time and date, the 
time of day, and the "message of the day" from the Computer Center. The last 
item may be suppressed if the user uses the LOGIN command with the in/n 
specification. 

After all preliminary reports are finished, a prompt symbol "." is 

printed on a new line, and the conputer pauses and waits for input. The user is 

now connected to the conputer at the monitor level, and the sign-on procedure is 
ccsnpleted . 

The following two cases are examples of sign-on. Explanatory remarks are 
also given along with the ronote terminal printout. As used throughout this 
book, those lines entered by the users will be in italias : 

Printout on Terminal Remarks 



. INITIATE ) I M I T I ATE comma nd 

PITT EGC-1099/A 63A.41B 16:19:17 TTY43 systan 1237/1240 Computer's response 

.TTY SYSTEM B ; Request System B 

PITT ra;C-1099/B 63A.41B 16:19:50 TTY43 system 1237/1240 

.LOGIN 116103,320571 ) Sign-On command 

JOB 35 PITT DEC-1099/B 63A.431B TTY43 Wed 7-May-80 1619 

Password: {Your password) ^ Supply password 

Last login: 7-May-80 1617 

Usage ratio: 22.13 Units used: 33.5 Password valTd 

SYS B DOWN 0000-0800 MCN MAY 12 FOR REGULAR HARDWARE MAINTENANCE 

SYS B DOWN 0000-0300 TUE MAY 13 FOR REGULAR SOFTWARE MAINTENANCE 

DUE TO HARDWARE PRCBLEMS THE ARRAY PROCESSOR WILL BE Message of the day 

TEMPORARILY OFF LINE UNTIL FURTHER NOTICE 

• System ready! 



.LOGIN 115103/320571 >? Sign-On command 

JOB 23 PITT DEC-1099/B 63A.41B TTY43 Wed 7-May-80 1815 c , i-j 
Password : {Your password) ) ZlZaZ ' 

Last login: 7-May-80 1619 password 

Usage ratio: 22.13 Units used: 33.5 

* System ready'. 
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1.9 Password 

To sign on the EEC-10 system, the required identifications are a valid 
PPN and the associated password. Security of PHQs is impossible because they 
are publicly displayed in many places - in DDGIN printout, in the file 
directory, in printout identification, etc. Thus the only real safeguard and 
security of a ccmputer account is the password. 

The need for protection against unauthorized use of your account by 
another person goes beyond accounting reasons. There have been numerous 
incidents of computer vandalism in the past. The most frequent vandalism was 
change or erasure of programs or data without the owner's knowledge. 

The only protection against such unauthorized use is to install a 
password, to keep its security, and to change it frequently. As a matter of 
prudence and necessity, the user should change his password regularly as a 
standard practice and v^enever he suspects the password is no longer secure. 

Changing a password at a terminal can only be done at the DDGIN time by 
using either of the following DDGIN format: 



DDGIN m,n/PASSWORD 



DDGIN m/n/PASSWORD 



where "m" and "n" are the PPN. The following shows a sign-on session with a 
password change. Since the process is interactive, the explanation should be 
self-evident: 

LOGin 115103/320571/password H 

JOB 16 PITT DEC-1099/B 63A.41B TTY43 Wed 9-May-80 2003 
Password: (Enter old password) ^ 
New Password: (Enter new password) H 

Retype for verification 

New Password: (Enter new password again) ) 
Last passvrord update: 24-;^r-80 1255 
Last login: 22-Apr-80 1642 
Usage ratio: 0.84 Units used: 33.1 



1.10 Disk Storage Quota 

One of the special features of a time-sharing canputing system, as 
compared with a ccmputer for batch processing applications only, is its very 
large capacity for on-line mass storage, such as the disk storage. It is a 
coiranon practice to assign and allocate a part of that mass storage for users to 
store their programs, data or other files. These storage spaces are measured in 
"disk blocks", or simply "blocks". In EEC-10 system, each block contains 128 
data words in EEC-10 format. Therefore, each block can hold a maximum of 640 
characters, an equivalent of 8 fully punched cards. 
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Each authorized user is assigned a quota of disk space in blocks called 
logout quota , in vitiich he may store his files permanently. These files will not 
be removed fron the storcge unless any one of the following situation occurs: 
(1) vAien a file is deleted by the user himself, (2) when a file is inactive and 
not accessed for more than a prescribed period (for exanple, a month) , or (3) 
when the project has been cancelled or terminated. 

When a user is lOGINed and on-line, the actual disk space assigned to him 
is five times the logout quota. The extra storage is assigned for storing 
temporary data, non-permanent program or data files needed for the execution of 
the user's work vAiile he is on line. This on-line quota of disk space is called 
the login quota . The actual number of blocks assigned as the login quota 
depends on the logout quota and the available system capacity at the time. 

After a user has LDGINed, he may enjoy the larger login quota for his 
on-line work. When he is ready to sign-off, he must make sure that his disk 
usage is under the logout quota, otherwise all efforts of signing off would 
fail, or else the computer will delete the stored files according to a 
predetermined order of priority until the logout quota requironent is met. In 
the latter case, the canputer may very well delete some important files. 

The monitor cotimands for managing the files are discussed in Chapter 8. 
However, several ccMiimands that are necessary in managing the quota will be 
briefly discussed here. For more details of these commands, the readers are 
referred to Chapter 8. 

The monitor ccxnmand R QUOLST is used to inquire about the current status 
of the disk quota (login, logout, and system status) . An example follows. 
Again, lines in italics are typed by the user: 



,R QUOLST 2 



Explana tion 



115103,320571 — 

used left: (in) 

180 120 







User: 

Str 

USRB: 



Tinesharing :ore Cla$s: 
Batch Core Class: 



User's Prw 



(out) 
-120 



(sys) 
182616 



•-User's core classes 
-Storage device specification 



Disk Status: 
System status 
Logout quota status 
Login quota status 
Disk block used 



In this example, the user has a logout quota of 60 blocks and a login 
quota of 300 blocks. At the time of this inquiry, he has used up 180 blocks. 
Therefore, the above printout indicates that he is still 120 blocks under the 
login quota, but he is 120 blocks above the logout quota. Should he wish to 
sign off at this time, he must first delete his files for at least a total of 
120 blocks. So, at this point it is important to him to know how to find out 
what he has in the storage and how he can selectively delete them. Two other 
monitor commands useful for quota managanent are: 



and 



DIRECT > 

DIRECT name. ex t ^ 



When the command DIRECT (for "directory") is given, the terminal will 
print out a list of user's files in the disk storage, along with their names. 
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extensions, file sizes in blocks and other pertinent information. The total 

amount of storage occupied is printed out at the end of the list. A sample 
result of this conmand is shown below: 



.DIRECT 



TEST 


DAT 


60 


<057> 


18-MAY-79 


SAMPLE 


FOR 


48 


<157> 


19-MAY-79 


SAMPLE 


PEL 


36 


<057> 


22-MAY-79 


TEST 


BAK 


36 


<057> 


24-MAY-79 



USRB: [115103,320571] 



TOTAL OF 180 BLOCKS IN 4 FILES ON USRB: [115103,320571] 

The ccxranand DIRECT thus gives the user an inventory of files in the disk 
storage at that time. If he is then ready to sign off frcsn the computer, and if 
he is over the logout quota, this inventory information will enable him to 
decide v^ich file he should erase in order to get below the logout quota limit. 
The monitor ccmmand of DELETE is used to erase a file in the storage. If in the 
above example, the files TEST. DAT, SAMPLE. REL and TEST. BAK are to be erased, 
then the ccstimand issued is : 

.DELETE TEST. DAT, SAMPLE. REL, TEST. BAK 

After erasure is completed, the terminal will report the names of the 
erased files and the size of total restored storage. The details of file names, 
extensions and other information about file name structure are given in Section 
1.12. 



1.11 Sign-Off Procedure 

To leave the system, the user must terminate his job by supplying a 
monitor ccxnmand KJOB ("to kill the job") . The system will respond by requesting 
a code letter for confirmation and file disposition. Thus, the conmand format 
for signing-off is: 



.KJOB P 

CONFIRM: (oode tetter);! 



A shortened form of this ccmmand is: 



.K/{aode letter) ^ 



The most commonly used code letters in the KJOB command are: 

F = fast signoff ; save all files 

D = fast signoff; delete all files. Computer will respond with A 
confirming question: "DELETE ALL FILES?" Answer YES and return the 
carriage. 

P = preserve all files except temporary files. 

H = HELP! Computer will respond will detailed instructions. 
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I = list file names, one at a time, and apply code letter decision 
individually. The code letters for individual decision are: 

P = preserve the file 

S = save the file 

K = delete the file 

Q = learn if over logout quota on this file 

E = skip to next file and save this file if below logout quota for 
this file. If not below logout quota, a message is typed and 
the same file name is repeated. 

H = HELP. Computer will respond with the above information on code 
letters. 

While files are disposed per user's code letter instruction, the computer 
will make a check on logout quota, gather all usage and accounting information, 
terminate the user's job and print out a summary of the job. For example: 

.K/F 7 

JOB 16 [115103,320571] off TrY43 at 2032 9-May-80 Connect=29 Min 

Disk R+W=83+76 Tape IO=0 Saved all files (450 blocks) 

CHJ 0:04 Core HWM=11P Units=0.1263 ($9.48) 

The printout indicates that this user, with PPN of 115103,320571, was 
assigned line 43 and job 16, signed off at 2032 on May 9, 1980. His terminal 
was connected to the system for 29 minutes, used CPU or canputer time for 4 
seconds. He used disk, but not magnetic tapes. He has 450 blocks of saved 
files. For this job, the highest core area used (HWM=High-Water-Mark) was 11 
pages or 5.5K words, and the charge is 0.1263 unit or $9.48. 

The "unit" is an accounting device which combines all charges of the 
service, including CPU time, disk usage, the length of connect time, the size of 
core used, and time of the day, and a base charge, each with an appropriate 
weighting factor to form an accounting formula. 
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FILES 

1.12 Basic Concept of Files 

One of the important and convenient features of a time-sharing system is 
that it is supported by mass storage devices. The need for mass storage during 
the early days of time-sharing is derived frcm the fact that only the most 
important service programs and the program being executed at the moment may be 
stored in the high-cost, high-speed magnetic core storage. The mass storage 
serves as a temporary storage for programs and data not being processed at the 
time. When the user's turn cones, his program and data will enter the core 
storage. When his allotted time is finished, the program and data in the core 
return to the mass storage. Such transfer of program and data is an important 
and unique operation in all time-sharing systems, and is called swapping . The 
portion of the mass storage, magnetic disk and/or magnetic drum, assigned for 
swapping is called a swapping device . 

The space required for swapping is a relatively small portion of the 
storage available in the mass storage devices. Thus a time-sharing system 
generally is characterized by a very high reserve capacity of auxiliary storage. 
The most frequent use of this capacity is to accommodate users' programs and/or 
data. These stored programs and/or data are called files . 

Each language processor in the time-sharing system contains facilities 
for file managonent and file manipulation, and this information will be 
discussed in various chapters in this book. It will be useful at this point, 
however, to introduce some basic information and concepts. 

The basic unit of information in a file is called a record . If a file is 
visualized as consisting of a deck of punched cards, then each card becones one 
record. The information content of one record varies frcxn case to case. A 
blank card contains no information, and it is called a null record. A FORTRMSl 
source program record is limited to a maximum of 72 characters/record. For a 
PIL program, there is no practical limit to the length of a record. 

For the purpose of identification, each file is given a name. Once the 

names are established, the computer will maintain a directory so that users need 

not be concerned with the exact locations or addresses on the disk to locate 

their files. For the EEC System-10, the format of a complete name of a file is: 



where : 



DEV: NAME. EXT [m,n] <xyz> 



DEV: = name of device on which the file is stored. If this part is 
omitted in the cotiplete name, it is understood that the device is 
user's assigned disk area. 

NAME = file name consisting of one to six letters and/or digits, with no 
embedded blank. 

.EXT = file extension consisting of zero to 3 letters and/or digits with 
no embedded blank. See more explanations below. 

[m,n] = the PEN of the person who created or owned the file. Note the 
use of square brackets. 
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<xyz> = a three-digit (octal) protection code , 
below. Note the use of angular brackets. 



See more explanation 



"Vhe file extension is the part of file identification used to indicate 
the language or format of the file. The following are the most frequently used 
file extensions. 



.PIL 
.FOR 
.REL 
.BAS 
.BAK 
.DAT 
.TMP 



Examples ; 



NEWTON. PIL 
NEWTON. FOR 
NEWTON. REL 
NEWTON. BAS 
FOR01.DAT 



A PIL (language) program file 

A FORTRAN source program file 

A relocatable binary file, or the "object deck" 

A BASIC (language) source program file 

A backup file 

A data file 

A temporary file 

A null extension (no extension) 



A PIL program file named NEWTON. 

A FORTRAN program file named NEWTCN. 

An object program compiled frcm NEWTCN.FOR 

A BASIC program file named NEWTON. 

A data file named FOROl. 



Symbols "*" and "7" are used as "wild cards" to represent a class of file 
names or extensions. The following examples will demonstrate their use: 



Examples ; 



NEWTON.* 
*.FOR 
*.* 
F????.DAT 

D12??.D?? 
D12??.* 



All files named NEWTON of any extension. 

All FORTRAN files. 

All files. 

All data files vrfiose names are 5 characters 
or less and begin with F. 

A files vAiose names begin with "012" and 
contain 5 characters or less, and v^iose 
extensions begin with the letter D iand con- 
tain 3 or less characters. 

All files v^ose names begin with "D12" and 
contain 5 characters or less. 



The protection code is a 3-digit octal number xyz, each digit ranging 
from to 7. Each digit defines a protection level of the file against a 
certain class of users: 

X = protection level against the file owner himself. 

y = protection level gainst users sharing the same project nunnber. 

z = protection level gainst the general public. 
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The levels of protection range from to 7, and level 7 is the highest. 
The exact definition of each protection level is given below: 

Code Digit Acces s Protection * 



No access 


pr ivileges 




Execute 


only 






Level 


6 


+ 


read privilege 




Level 


5 


+ 


ajpend 


privilege 




Level 


4 


+ 


update 


privilege 




Level 


3 


+ 


write privilege 




Level 


2 


+ 


rename 


privilege 




Level 


1 


+ 


change 


protection pr 


ivilege 



7 
6 
5 
4 
3 
2 
1 


The access protection can be changed by executing the RENAME or PROTECT 
monitor canmand (see Chapter 8) or by using the service program PIP (see 
Chapter 7) , Since there are 8 levels of protection in each of three classes of 
users, there are 512 different shades of protection-level combinations possible. 
Normally, one need only be concerned with a few commonly used codes: 

Prote ction Codes Application s 

077,177 Strictly private and non-sharable, such as 

grade files maintained by an instructor. 

057,177 Sharable within a project, for example, a 

program to be shared by all students in a 
course. 

055,155 Sharable with the computer community, but 

the file may not be modified by anyone 
except the file owner. 

The System assigns a default protection level of 057, set automatically 
by the computer if the person does not specify any protection code when he 
creates the file. In some coursework, instructors may arrange to have the^ 
default protection level automatically set at 077. in such a case, the"" 
protection code of a student's file is 077 to his classmates, but is 057 to his 
instructor. 



*Subject to minor local variations. For example, at the University of 
Pittsburgh, access protection designated by the x-digit has been modified 
slightly. 
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EXERCISE (M A TIME-SHARING TERMINAL 



For a person with no prior experience with using a computer, it is quite 
natural for him to feel intimidated v^en he gets on the computer for the first 
time. Beginners should feel assured by the fact that very little they do can 
hurt the computer, except if he gets physically violent and abuses the computer 
equipment. A session on a terminal to become familiar with its function and 
operation is highly recommended. The following is a recommended exercise. 

(1) With a valid PPN and a password, practise sign-on and change-password 
procedures. Warning: Do not mix up or forget your new password, or else you 
will not get back on the computer again. 

(2) Once signed on, type any gibberish, return the carriage, and watch 
the error message fran the canputer. Always wait for the prompt symhxil "." to 
appear, then type in your line. Don't leave a blank or space after the ".", and 
don't forget to return the carriage at the end of each line. 

(3) Copy a file into your own disk for the terminal exercise. For 
example, to copy a new bulletin of the System, use the following conmand: 

.COPY NEWS. DAT=SYS: NEWS 

Note the period in the first column is already furnished by the ccanputer; 
you just type in the rest of the line and return the carriage. After this, use 
the DIRECT command the and R QUOLST command to find out the status and quota of 
your disk storage. 

(4) After the file is copied into your storage, do the following 
exercises: 

a. Print out the file by the command: 

.TYPE NEWS. DAT 

After a few lines are typed out, kill the typing job by either a 
CTRL-0 or multiple CTRL-C (twice or more) . The nev/s file is quite 
long and a complete typeout will take a long time. If you are 
curious about wiiat the rest of the news bulletin is, apply the 
following conmand: 

.PRINT NEWS. DAT 

and a printer copy will be produced at the printer. The printout 
will have your programmer number printed in big block letters on the 
first page for identification. 

b. There is a group of monitor commands that controls tlie functions of 
a terminal. They are discussed in Chapter 8 on Operating System 
conmands. However, several ccanmands may be useful enough to the 
beginner that they will be given here for exercise: 

.TTY WIDTH n 

This conmand will set the right margin of the terminial at the nth 
column. The value "n" may range fron 17 to 200. ^'Jhen you sign on 
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to the System, the right margin is automatically set at 72. 

.TTY PAGE 

After this canmand is given, a CTRL-S will suspend the output (but 
not kill it) , and CTRL-Q will resume it. The purpose is to stop the 
output in order to examine the output that has already been 
produced . 

After setting the right margin at a new value and giving the 
TTY PAGE command, repeat the exercise of typing out NEWS. DAT. Use 
both CTRL-S and CTRL-Q to control the printing. 

(5) While still signed on, try to change to another system. Can you do 
it? 

(6) Check your logout quota status. If you are still under your quota, 
keep "stuffing" your storage by repeating step 3 above (each time using a new 
file name) , until you have gone over the quota. Confirm that by using the 
R QUOLST and DIRECT commands. Try to sign off in this condition. 

(7) Clean up your disk storage and sign off. 

(8) Repeat steps 1 through 7 by first signing on purposely on the wrong 
system. What are the consequences? What is the warning message frcm the 
computer? What are the things you cannot do in the wrong system? What are the 
things you can do in either system? 

When you complete this exercise with reasonable facility, you may 
consider yourself granted a beginner's driver license. Congratulations! 
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CHAPTER 2 
TEXT EDITOR 



Everything must have a beginning. From a 
user's point of view, his starting point is to enter 
his program and/or data into the computer . The DEC 
System-10 is mainly disk-based machine. That means, 
the computer will look in the user's disk area for the 
program a user wants to execute. Therefore, in order 
to do any computer processing, a user must first place 
his program and/or data in the disk. The text editor 
is a system program that will enable the user to 
perform this task. 



2.1 Introduction 

The UPDATE (University of Pittsburgh DAta and Text B3itor) * is a service 
program with vrfiich a user can correct, modify, duplicate, or delete parts of a 
stored program or data file. 

In order to edit a program or data file, it must be one already stored on 
disk, magnetic tape, or EECtape. However, if the source material is on tape, 
using UPDATE will result in an edited copy of material stored on disk, and the 
original material on tape is unchanged. Ultimate changes on tape still require 
the use of another service program, such as PIP (see Chapter 7) , to delete the 
old file on tape and to transfer the new file frai\ disk to tape. Otherwise, the 
new file is re-copied onto the tape so that the old and the new copies co-exist 
together on the tape. Therefore, for all practical purposes, UPDATE is used as 
a disk-to-disk editor, taking source material fran the disk and storing the 
edited copy back on the disk. Discussions in this chapter are based on such 
disk-to-disk editing. 

After the user signs on in the usual way, he can get the service of 
UPDATE by typing the following monitor ccmmand: 



.R UPDATE 



.UPDATE 



*Developed by Gerald W. Bradley, University of Pittsburgh (Reference 7) . 
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When the UTOATE editor is assigned, the computer will first ask for the 
name of the input file to be edited in this manner: 

fi UPDATE 
INPOT=> 



The user will then type in after the greater-than sign the file name, 
extension, file owner's PPN if the user is not the owner. For example: 

,R UPDATE .i? UPDATE 

TX\-p\jj^=ySA!"[PLE. FOR rnVm^ySAWLE. FOR [1151 03, 320571 ] 

> > 

When the greater-than sign is again printed by the ccmputer, UPDAT13 is ready to 
accept editing commands, and editing on the specified file can laegin. As the 
editing proceeds, v^enever UPDATE is ready to accept a conmand or ,an insertion, 
a sign ">" is printed out as a pronpt symhxjl. The first space after the sign 
should be considered as column No. 1. 

The above process may be shortened by using the following formats: 

.UPDATE SAt^LE.FOR .UPDATE SAMPLE, F0R[11 51 03, 320 571] 

> > 



2.2 Selected Terminology 

The following terms will be used quite frequently in the discussion of 
the UPDATE commands: 

(1) Record , or Line 

A record or a line is a basic unit of information in a file. If a file 
consists of a deck of punched cards, each card becomes one record. For a file 
stored on disk, one record actually is a tiny length of track on the disk. The 
information content for one record varies fron case to case. In a FORTRAN 
program, each record is limited to a maximum of 72 characters including blanks, 
although each statement may extend for several records if needed. Sometimes, 
there is no information at all on a record, such as a blank card, and this is 
called a null record . 

(2) Pointer 

Once the input file is specified and loaded, the UPDATE at that time is 
positioned at the first record, or line, of the file. At that point, editing 
commands will refer to text material with that line as a reference point. 
Later, if one wishes to make editing steps at another line, the UPDATE should be 
re-positioned by appropriate ccmmands. For convenience, we shall assume an 
imaginery "pointer" which indicates the position of the record being aligned. 
Thus, such a statement as "moving the pointer forward 5 records" should now make 
sense. 

(3) Line Numbers, Absolute and Relative 

A file begins with record No. 1, then No. 2, etc. Such line numbers 
represent the true positions of the records in the file, and lare called the 
absolute line numbers. On the other hand, it is often convenient to use as a 
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reference the line currently pointed to and say, for example, "move forward 5 
lines" or "back up 3 lines". These are then relative line numbers. Absolute 
line numbers are always expressed by unsigned positive integers, and relative 
line numbers by signed integers. Use "+" sign for forward reference and "-" for 
backward reference in specifying relative line numbers. Note that a file always 
begins at line number 1, and its line numbers are always contiguous. Therefore, 
if lines 4 and 5 are deleted during editing, then line 6 hjeccmes line 4, 7 
becomes 5, etc. 

(4) Delimiter While the pointer indicates the position of a line in a 
text, the position of text within a line is indicated by the use of delimiters. 
These delimiters may be thought of as quotation marks in the English language, 
except that any special character may be used as a delimiter in UPDATE. Thus, 
if one wishes to set off the last three words of this particular paragraph, he 
may specify: 

"he may specify:" or /he may specify:/ 

or ?he may specify:? or $he may specify:$ etc. 

Because of its similarity with the quotation, the string set off by a pair of 
delimiters will be referred to as a "quoted string" or simply a "quotation". 
There are several important rules of delimiter usage in the UPDATE editor: 

A. Use consistent characters as delimiters for a quotation. While any 
special character may be used as a delimiter, the choice of the 
beginning-of-quotation (BOQ) delimiter automatically decides the use 
of the same character as the end-of-quotation (EOQ) delimiter. The 
following examples should be self-explanatory: 

Valid Use of Delimiters Invalid Use 



"quoted text" (quoted text) 

(quoted text( <quoted text> 

B. If a quoted string contains a special character, that particular 
character should not be used as a delimiter for this quotation. For 
example, if we wish to quote a string "less than $5.00" and use "$" as 
a delimiter, the result will be misinterpreted by UPDATE. 

C. If several quotations are placed in one UPDATE command, the following 
rules apply: 

a. The first BOQ delimiter determines the character to use. 

b. Multiple quotations must all refer to materials on the same 
record . 

c. When multiple quotations are placed together, two adjacent 
delimiters should always be merged into a single one to avoid 
ambiguity. In other words, a delimiter should not only serve as 
the BOQ delimiter for the following quotation, but also as the EOQ 
delimiter for the preceding quotation. Thus a general appearance 
of a multiple quotation will be something like this: 

/QUOTE 1/QUOTE 2/QUOTE 3/ 
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If this multiple quote is written as: 

/QUOTE 1//QU0TE 2//QU0TE 3/ 

it will actually be interpreted by UPDATE as 5 quotations, the 
second and the fourth being null strings, 

D. The contents of a quotation must be exact and unique. When UPDATE 
receives a quoted string, it will try to search in the pointed line 
for a group of characters exactly matching the quotation. In such a 
matching process, the capital letters, the lower cases, the blanks, 
special characters, and control characters are all legitimate and 
different characters. For this reason, a quoted string must be given 
in the exact way as in the pointed line. 

Example : Suppose we wish to quote the underscored portion below: 

50 Yl = YO + Y 1 

Correct Quota tion Incorrect Quotatio n . 

/Y 1/ AV 

E. When UPDATE searches a line text to match a quotation, it begins with 
the character in column one. As the search moves to Uie right, and a 
match is found, the search is completed. If a quoted string appears 
several times in a text line, UPDATE will always pick the string 
nearest to the first column. Therefore, if we wish to sepcify 
non-unique strings further to the right, the string must be expanded 
in front and/or in the back until the string is unique, or else it is 
the first such quotation when the search starts from the left end. 

Example : Suppose we wish to quote the underscored portion below: 
501 IF(Y.LT, 0,0001) GO TO 510 

Co rrect Quotat ion Incorrect Quotation 

/O.OOOl/ /O/ 

/.OOO/ /Ol/ 

/Ol)/ etc, /OO/ 



F. A single quotation followed immediately by an integer means this 
quotation begins frcxn column indicated. For example, the quotation 
/01/19 means the character string "01" that begins at column No. 19. 

G. All quotations must be bracketed within a pair of delimiters. 
Unclosed quotation is an error. 
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A PRIMER OF UPDATE EDITOR 



The text editor UPDATE contains several dozens of editing commands. For 
a beginner, it vould be a mistake to attempt to learn them all at one time. 
Experience has shown that most editings are done with a limited set of editing 
commands. Complex ccxnmand functions can usually be acccsnpl ished by ajplying 
several simpler commands in sequence. For the sake of learning efficiency, it 
would be much more cost effective for a beginner to concentrate on a few basic 
editing functions and ccxnmands. They are: 

(1) To move a pointer to a designated line. 

(2) To make changes on a pointed line. 

(3) To delete the pointed line or lines. 

(4) To type out the content of the pointed line or lines. 

(5) To insert a line at a designated place. 

(6) To conclude the editing. 

The commands given in the following sections pertain to these basic 
functions. All UPDATE commands must have a "$" in the first column. The 
spelling of each ccanmand may be shortened to just the first two letters. 
Misspelling after the first two letters will be ignored and will not be 
considered an error. 



2 . 3 Movement of Pointer, $T0, $AT and $TRAVEL 

When the UPDATE first opens an input file, the pointer is always 
positioned at line No. 1. There are three ccxnmands one may use to move the 
pointer elsewhere, and they are $T0, $AT and $TRAVEL. 

$T0 will move the pointer to a specified place, and once there the new 
line is typed out for verification. 

$AT performs the same function as $T0, but the typing of a new line is 
suppressed . 

$TRAVEL performs the same function as $T0, and the command is 
"remembered". The same $TRAVEL command can be executed again later by issuing a 
$G0 command. 

All three commands have the same command formats and variations, and 
those for $T0 are listed below. Variations of formats would be the same for the 
other tvro ccmmands, simply by replacing $T0 in the following listing by either 
$AT or $TR. 
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Move the pointer to line N. 

Move the pointer N lines forward. 

Move the pointer N lines backward. 



B. 
C. 
D. 


$T0 +N 
$T0 -N 
$T0 /TEXT/ 


E. 


$T0 $TEXT$ 



Move the pointer forward fron the present line 
until it encounters a line with the exact string 
/TEXT/ in it. 

Similar to case D above, with an exception that 
the match will not consider the difference 
between upper and lower case letters, nor will 
it take into account any blank between 
characters. 

F. $T0 /TEXT/K Search for the string TEXT that begins at colunn 

No. K. 

G. $T0 $ Move the pointer to the last line. 

Notice the mode of search in cases D, E and F. The search starts frcxn 
the line belo w the pointed line. If there is a string TEXT in the pointed line, 
it will not be found. If one wishes to move to the first appearance of /TEXT/ 
or $TEXT$ while he is in the middle section of the file, he should issue the 
command $T0 1 first before giving a $TO/TE XT/, or $TO/TEXT/K, or $T0 $TEXT$$ 
command. This is so that he will not miss any earlier existences of the string 
TEXT in the lines before the pointer. But even so, such a search would miss 
line 1, unless the user examines the line typed out after the command $T0 1 . 
This problem may be solved by inserting a blank line as J.ine 1 and later 
removing it before finishing the editing job. 

To move forward one line, two ways are possible: Either use $T0 +1 
command, or simply return the carriage. 

To move backward one line, either use the command $T0 -1 , or press 
backspace key and then return the carriage. 

While moving the pointer back and forth during the editing job, it will 
become difficult to keep track of the line number of the pointer. The command 
$WHER E will cause a number typed out enclosed in brackets to indicate the 
current pointer line number. 

Example ; Suppose you wish to examine every FORMAT statement in your 
FORTRAN program. You will first call the file using the UPDATE. Then apply the 
following ccxnmand: 

>$TRAVEL /FORMAT/ 

The first time you apply it this way, it will move the pointer to the first 
FORMAT statement, and print it out. Any revision of the statement may be done 
there and then. The movement to the subsequent FORMAT statements may be 
accomplished by giving the command: 

>$G0 

Naturally, if a FORMAT statement in the program is misspelled, the $TRAVEL 
command will not find that statement. 
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2 . 4 Change of Text Material, $CHANG E , $ALTER and $SlJBST ITUrE 

When the appropriate line is positioned by the $T0, $AT or $TRAVEL 
command, editing changes may be performed using the $CHANGE, or $ALTER command. 
The standard format is: 

$CHANGE /OLD TEXT/NEW TEXT/ 

For multiple changes on the same line, the command format is: 

$CHANGE /OLD 1/NEW 1/OLD 2/NEW 2/OLD 3AIEW 3/... 

The rules of delimiters in multiple quotations have been discussed before and 
are applicable here. Again, the delimiters for multiple quotations must be 
consistent for all quotations. 

As a convenience feature, after the $CHANGE command is executed, the 
entire new line is typed out for verification. The pointer position remains 
unchanged . 

Exampl e : Suppose the indicated changes are required as shown below: 
5j,««. ^C /.LT. (go TO 

35IF(^PRINI1^) (@/90a 

The following twD lines show first the editing ccramand of $CHANGE and then the 
edited text automatically typed out after execution. (Remember our convention 
in this book User's input line shown in italics): 

>$CHANGE/5/S /9/( />/ .LT. /G/GO /.// 
35 IF (IPRINT.LT.O) GO TO 90 



to 



There are, of course, many other ways to write the above $CHANGE command 
achieve the same result. 

$ALrER is used in the same way as the $CHANGE command, except that $ALTER 
does not allow multiple changes. Its main usefulness is in the compounded 
editing canmands, as will be illustrated in a later section. 

$SUBSTITljrE differs fran $CHANGE or $ALTER in this manner: The command 
$CHANGE or $ALTER is used to change a string in one single line positioned by 
the pointer. The ccmimand $SUBSTITUTE is used to alter a string in the entire 
file beg inning frcm the pointed line . Again, the string of characters to be 
changed must be specified exactly and uniquely. Otherwise, inadvertent changes 
will result at unintended places. For example, if one wishes to change the 
variable X into Y in a certain program, specifying $SlBSTITUrE/X/Y/ vould change 
every X-character into Y-character. Thus, inadvertently, another variable with 
the name "INDEX" would becane "INDEY", and the exponential function name EXP 
would be changed to EYP. 

There are two variations for the command $SUBSTITOTE: 
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A. $SUBSTITUrE /OLDTEXT/NEWTEXT/ 

Starting frcm the pointed line, this ccwnmand will search for a 
string /OLDTEXT/ and each time upon finding it, change it into 
/NEWTEXT/ until the end of the file is reached. 

B, $SUBSTITLfrE /OLDTEXT/NEWTEXT/K 

Starting frcm the pointed line, this conmand will search for a 
string /OLDTEXT/ that begins at the Kth column, and each time upon 
finding it change it to /NEWTEXi7 until the end of the file is 
reached. After the $SUBSTITUrE command is executed successfully, 
the pointer will be relocated at the last line of the file. 



2,5 Deletion of Lines, $DELETE 

When a line or a group of consecutive lines are to be deleted, first 
position the pointer to that line or the first line of that group, using either 
the $T0 or $AT command. Then depending on what is to be deleted, use the 
command $DELETE in the following ways: 

(1) $DELETE N Delete N lines beginning with the one presently 
pointed to. After the deletion, the pointer moves forward to the line 
immediately after the deleted group. If the deleted group happens to be the 
final N lines of the file, the pointer drops back one line and positions at the 
new last line. If N is larger than the number of lines left on the input file, 
a coimiand $DELETE N will delete every line remaining and then type out a "?" to 
indicate error. This feature is actually quite useful when one wishes to delete 
the rest of the text but does not know how many lines there ace. Then, he can 
simply issue a ccstimand of $DELETE 10000, or any number larger thian the number of 
remaining lines. 

(2) $DELETE This is automatically interpreted as $DELETE 1. 

(3) $DELETE $ Beginning with the currently pointed line, this 
coiranand will erase the rest of the file. 

$DELETE -N is ^WT a valid command. 

Example ; See below for the "Before" and "After" with a $DELETE command: 

Line Number 

1 
2 
3 
4 
5 
6 
7 

8 88 

9 99 





Text 


BEFORE 




Text AFTER A 
Command $DE3 






11 

22>to be 

33 1 deleted 

44 J 

55 

66 

77 




11 
55 
66 
77 
88 
99 


Old 
pointer 




New 
pointer 
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Note that although the pointer is positioned at a new line of text, the line 
number of the pointed line remains the same. The line numbers and the text are 
then automatically readjusted. 



2.6 Output of Lines, $TYP E 

Frequently, it is desirable to display the text of a line on the terminal 
for examination. The UPDATE command for this function is $TYPE. The following 
shows the variations: 

A. $TYPE N This command will type out N lines beginning with the 

present line. The position of the pointer remains 
unchanged . 

B. $TYPE Same as $TYPE 1. 

C. $TYPE $ This command will type out the currently pointed line 

and the last line of the file. Pointer position 
ronains unchanged. 



2.7 Line Insertion 



UPDATE will regard any user input as UPDATE command if column 1 is a "$" 
character. Conversely, UPDATE will regard any user input as line insertion if 
the line does not begin with a "$" in colunn 1. When a line is inserted, it 
will always be inserted after the currently pointed line. If you wish to insert 
a line before the pointed line, you must precede your insertion by a " $BEFORE " 
command. When a new line has been inserted, the pointer will move forward one 
line, making the new insertion the currently pointed line. 

Beside adding lines to an old file, this process is particularly useful 
in creating new files. The process of creating a new file is outlined as 
follows : 

(1) Call for UPDATE and give a file name that does not yet exist. For 
example : 

.UPDATE NEW. FOR 

where NEW. FOR is a file name given to the new file to be created. 

(2) The pointer of the blank file called by the UPDATE will be positioned 
at line zero. Type in the new file, one line at a time. Each line is 
terminated by a carriage return in the conventional way of typing. 

(3) While the new file is being created, the editing caiunands can be 
ajplied to move the pointer, to type out the lines, to delete or to change the 
contents of a line. 

(4) When all lines are entered, exit fron UPDATE by a ccxnmand $END. 
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2.8 Completion of an Editing Session, $DONE, $END and $FINISH 

All three cOTrmands signify the end of current editing of the file. They 
differ in how the file should be stored and named. 

When the $DONE command is issued, UPDATE will ask the user to supply a 
file name for the edited file, for example: 

>$DONE 

CATALOG NAME=>5/l/.ff'L£'. FOR 

6 BDXKS WRITTEN ON SAMPLE. EXDR[115103, 320571] 

EXIT 



If the file name and the extension given here are exactly the same as 
those of the old file, the old file is replaced by the new file. As a safety 
measure, the old file is retained in the storage with the extension changed to 
BAK (for "backup") , in case the user changes his mind about his revisions. If 
either the name or the extension or both are different from thos«; of the old 
file, a new file is created and stored on disk along with the old file, and the 
old file is not disturbed. If the name and the extension given during the 
cataloging are exactly the same with those of some other file in the disk 
storage, naming tvro different files with the same name causes an error, and the 
UHDATE will reject the duplicate name and ask for a new name. This is 
illustrated below: 

>$DONE 

CATALOG NAME=>Mf/.FO;? 

FILE DSK:E20016.TMP[115103, 320571] to NEW. FOR[115103, 320571] 

RENAME error (4) - Already existing file 
CATALOG mME=>SAMPLE.FOR 
6 BDXKS WRITTEN W SAMPLE. FOR[115103, 320571] 

EXIT 



The catalog name can also contain a protection code specification, for 
example, SAMPLE. FOR<155>. When the protection code is omitted, the UPDATE will 
automatically assign a protection code of 057. 

When the $END command is issued, a fast exit is accomplished and the 
edited file will have the same file name, extension and protection code as those 
of the old file. The old file beccanes a BAK file. After the storage process is 
completed, UPDATE returns the user to the monitor. 

When the $FINISH command is issued, it will perform the same function as 
$END. However, instead of returning the control to the monitor, the user will 
retain the service of the UPDATE editor and can then start a new editing job. 
Therefore, this ccxitmand is equivalent to issuing tvro successive commands: an 
UPDATE command of $END followed by a monitor command of .R UPDA1E. 



I/O Files in Editing 
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OTHER UPDATE CCMMANDS AND PROCEDURES 



When UPDATE is called, several events happen: 
(1) The UPDATE program is loaded into the canputer monory assigned to the 



user . 



(2) Two disk areas are assigned as working files. One is used as the 
input file labeled as El and the other is used as the output file labeled as E2, 
The actual file names assigned are ElOOxx.TMP and E200yy.TMP respectively, where 
"xx" and "yy" are numbers arbitrarily assigned. 

(3) After the input file name is given by the user, as requested by the 
UPDATE, a copy of that file is loaded into El. If no such file name exists. El 
remains a blank file. In either case, E2 is a blank file at this point. 

(4) UPDATE will read up to 100 lines (which may be specified and modified 
by a $FACTOR command) from El file into the memory. 

The logic flow of the text information during an editing session is shown 
in Figure 2.1. 

Now, as the editing session 
progresses and the pointer advances 
through the file, more lines are read 
into the monory. When the nunnber of 
lines in the monory is more than 100, or 
whatever value specified by a previous 
$FACTOR command, the lines behind the 
pointer are written into the E2 file. 
Thus, if the pointer keeps advancing 
forward, more lines are transferred into 
E2. When the editing is finally 
completed, all lines in the core, and 
all the remaining lines in the El file 
are copied onto the E2 file. The E2 
file is then renamed by a name 
designated by the user , and the El file 
is erased. It is significant to note 
frcxn Figure 2,1 that the movements of 
lines fran El to the ccanputer monory, 
then onto the E2 file, is always in one 
direction only. 




El File 



Ass igned 
Computer 
Memory 



E2 File 



Figure 2.1 
Editing Input /Out-put Files 



Thus, if the pointer is moved backward, there will be complications. If 
the pointer, after moved backward, is pointing to a line still in the core 
memory, events are still normal. If the pointer is positioned at a line no 
longer in the core memory, that line has already been copied onto the E2 file 
and cannot be retrieved because the transfer between the monory and E2 is 
one-way only, as shown in Figure 2.1. This will set forth a sequence of events 
described as follows: 

First, the lines in the memory and all the remaining lines in the El file 
will be copied onto the E2 file. The E2 file is then closed. The El file is 
erased. The E2 file is renamed as the El file. The new El file is read into 
the computer memory containing the line positioned by the pointer. The 
backing-up of the pointer is now finally accomplished. These events resemble a 



44 CHAPTER 2 TEXT EDITOR 

situation v^en a driver misses an exit on a one-way urban beltway. In order to 
exit at the missed exit point, he must drive the whole way around the one-way 
highway and gets off at the desired exit. However, such events at the editing 
session are "transparent" to the user, because at the terminal he will be 
unaware of these. But this situation does suggest that backing up in 
positioning a line should be done sparingly. 

When E2 is closed, it is renamed by a name designated by the user if the 
closing command is $DONE, and the input file is not disturbed. If the $END or 
$FINISH command is used, the E2 file is renamed by the same input name, and the 
input file is renamed as a BAK file. 

If the editing involves an auxiliary file as an input or output for the 
editing, another disk file labeled E3 is assigned. This happens with the 
command $ONTO or $FROM (See Section 2.16) . 



2,9 Line Insertion Mode 

UPDATE will treat all input lines that start with a $-sign in the column 
1 as an UPDATE command. Conversely, UPDATE will treat any input information 
without a $-sign in column one as a non-command and as information to be 
inserted in the text. 

There are two modes of line insertion: 

(1) Insertion after the pointer 

A. Insertion of lines typed at the terminal 

Any input information to the UPDATE without a dollar sign in column 
one will automatically be inserted immediately after the current line. When the 
insertion of one line is conpleted, the pointer moves forward one number, so 
that it is now positioned .at the newly inserted line. The next typed line will 
be inserted immediately after the previously inserted line, iand again the 
pointer moves to the newly created line. This feature makes it very convenient 
to use the terminal keyboard to create a file. 

The insertion mode is suspended v^enever an UPDATE command (with a 
$-sign in the first column) is issued. 

Example ; Observe the "Before" and the "After" of an insertion procedure: 

Line Old Text and New Text and 

Number Pointer Position User types in; Pointer Position 



1 


11 


AA 


11 


2 


— " 22 


BB 


22 


3 


33 


CC 


AA 


4 


44 




BB 


5 






— »• CC 


6 






33 


7 






44 



Line Insertions 45 



So the UPDATE interprets every input line beginning with a $-sign as 
an UPDATE command. This may develop into a dilemma if the user attempts to 
insert a line that begins with a $-sign. For example, consider the statement: 
"$5,00 IS TOO MUCH TO PAY". When this statement is inserted, UPDATE will puzzle 
over the meaning of "$5." as an UPDATE command, and the execution results in an 
error report. 

There are several ways to solve this problem: One is to insert a 
line: "X5.00 IS TOO MUCH TO PAY", and then use $CHANGE command to change the 
first "X" into "$". Another way is to insert the line: " $5,00 IS TOO MUCH TO 
PAY", leaving a blank in column 1, and then remove it using the $CHANGE command. 
If there are many such statements to insert (for example, in preparing a control 
file for batch processing) , the process may be simplified by an UPDATE command: 

$IS # 

where "#" can be any special character except ";". The effect of this ccmmand 
is to replace the format of all subsequent editing commands frcxn $XX to #XX, 
therefore allowing insertion of lines beginning with "$", but disallowing 
insertion of lines beginning with "#". A command #18 $ later will restore the 
UPDATE to the normal command format. 

To insert a blank line, one should not simply press the carriage 
return, because that action would merely move the pointer forward one line, and 
no insertion of any kind is accomplished. A blank line may be inserted by 
typing (at least) one blank then returning the carriage. 

B. Insertion of a stored file 

If the lines to be inserted are already stored on disk as a file 
whose name is given, for example, as NAME. EXT, by its owner with PEN of [m,n] , 
the insertion can be made simply in this manner: 

a. Position the pointer at the line immediately before the 
insertion. 

b. Issue the following UPDATE command: 



$INPUr = NAME. EXT [m,n] 

As usual, if [m,n] are the user's own numbers, they may be omitted in the 

command. After the insertion, the pointer moves forward to the last inserted 

line. This ccmimand is frequently used for merging parts of program or data 
files. 

Although the inserted lines cone from a stored file on the disk, the 
UPDATE editor treats them the same way as if they come from the terminal. And 
hence, the lines in a stored file insertion are subject to the same UPDATE 
editing rules, particularly about the interpretation of the first column 
character. If a file will be used as a straight forward insertion of lines, it 
should be inspected first to see if there is no "$" sign in the first columns. 
If there is any "$" in the first colutin, appropriate action, such as "$IS #" 
command, should be taken prior to the insertion. On the other hand, another 
avenue of issuing editing canmands in addition to the terminal is now opened up. 
One now may use either the terminal or a stored file to issue editing ccHimands, 



10110 


1 


10011 


2 


01101 


3 


10111 


4 
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UPDATE is greatly enhanced vAien a sequence of fixed UPDATE commarids, which will 
be executed frequently, is stored as a file. Execution of this sequence of 
comnands can be carried out automatically simply by the $INPUT command. These 
stored files now become editing programs and can be used over and over. 

Example ; The following is a file ATTEND, DAT that needs updating each 
week. The contents with the column numbers are shown below: 

(Column ) 111111111122222222223 

(Numbers ) 123456789012345678901234567890 

PERSOSI A 
PERSON B 
PERSON C 
PERSON D 

PERSON Z 00110 126 



Suppose the requirement of updating the file is as follows. Remove 
column-16; shift columns 17-20 to the left by one column; and replace 
column-20 by zeros. 

An "editing program" may be designed and stored as EDIT.PRG that contains 
the folowing statements: 

$AT1 

$SUBSTITUTE /1/0/16 

$AT1 

$SUBSTITUrE /0//16 

$AT1 

$SUBSTITUrE / /O /20 ( =blank) 

This sequence may be executed as shown below: 

, UPATE ATTEND. DAT 

>$INPUT=EDIT.Pm 

>$END 

1 BDXK WRITTEN ON ATTEND. DAT[115103, 320571] 

EXIT 



When this editing program is executed, columns 17-20 will be shifted to 
the left by one column. 

(2) Insertion before the pointer 

To insert material before the pointer, first apply the command $BEFORE . 
Then all lines with no ($) sign at the column-1 will be inserted before the 
pointer. In the meantime, the pointer will move to the last inserted line. The 
Insertion mode is terminated by any UPDATE command. See the example below: 
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Example ; Observe the "Before" and "After" : 



Line Old Text and New Text and 

Number Pointer Position User types in; Pointer Position 

1 »■ 11 $BEFORE AA 

2 22 AA ^BB 

3 33 BB 11 

4 44 22 

5 33 

6 44 



2.10 Compounded Editing Coiimands 

The UPDATE commands discussed so far have the format of one command per 
command line. When several ccsnmands are issued on a single canmand line, they 
become a compounded ccxnmand. The general format of a ccmpounded conmand is: 

$C0M^4AND 1; CCMIAND 2; COMMAND 3; ... 

The semicolons ";" are used to separate the successive commands, and therefore 
no semicolon should appear after the last ccxnmand in the compounded structure. 
Also, if any of the commands contains a quotation of string, the string must not 
contain any semicolon-character, because it will be misunderstood as a cornmand 
delimiter. Note that the dollar sign "$" is needed only for the first ccanmand . 
There are several straight-forward rules for constructing a compounded UPDATE 
coinnand : 

(1) All cranmands of a compounded command must fit in a single command 
line. 

(2) The individual ccmmands in the compounded conmand are executed in 
their natural order frcm left to right, 

(3) Certain commands may cause ambiguity and error if they are followed 
by other commands in a compounded structure. Consider the following compounded 
command : 



$T0 5; CHANGE /OLDl/NEWl/; TO/TEXT/; TYPE 4 



Interpretation 1: 
4 single commands 

J^ 2 T"^ 3 *l Interpretation 2: 

' 3 single commands 

with multiple string 
changes in $CHANGE 

It can be seen that the interpretation is ambiguous and it will be unpredictable 
how this command would be actually executed. To avoid this problem, ccanmands of 
this kind are always regarded as the last ccanmand in the structure, even if 
there are more ccmunands after them. If more commands are given after them in a 
compounded command, the added commands are simply ignored, and no error return 
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signal is returned. Thus, when the above example is executed, the part 
"TO /TEXT/; TYPE 4" will not be executed. In order to accomplish the function 
of the above compounded command, the above example should be modified to: 

$T0 5; ALTER /OLDl/NEWl/; TO /TEXT/; TYPE 4 

The ambiguity is now removed because the $ALTER command can allow only one 
change of string. 

There are certain UPDATE commands that must be physically the last 
command in a compounded structure. These commands are listed below: 



Group 



UPDATE Commands 



Multiple string change 
Change of command format 
Auxiliary file operations 
End of editing session 



CHANGE 

IS 

INPUT, OSITO, FROM 

END, DONE, FINISH 



Commands appended to any of the above commands in 
simply be ignored. 



compounded structure will 



Compounded command structure format provides a convenience for input 
commands. It also is a basis on which a simple and powerful editing program can 
be built, especially vrfnen it couples the usage of $TRAVEL and $G0 commands in 
the compounded structure: 

Example : $AT 1; TRAVEL /FORMAT/7; WHERE; GO 

Function : Beginning at line 2, search for the string of characters 
"FORMAT" that begins at column-7. When it is found, type out 
the line itself and the line number. Repeat the function 
until the end of the file is reached. In other words, this 
compounded command will print out all FORMAT statements and 
where they are in a FORTRAN program. Notice this compounded 
command will miss line 1; why? 



Example : $AT1;TR,/ /;AL/ / /;AT-1;G0 

Function : Beginning from line 2, all multiple blanks will be reduced 
single blank. 



to 



Example : 
Function: 



$TR/C/1 ; DE ; AT-1 ; GO 

Remove all Comment Lines in a FORTRAN program. 



$iyiovE 
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2.11 Move Con m and, $MOVE 

This cc«imand will move a block of lines to somevrfiere else in the file. 
There are two general formats: One is a single-command format, the other a 
multiple-command format. 

(1) Single command form at 

The merging of $MOVE N and $T0 commands forms a single-command that will 
move an N-line block to a place designated by the $T0 command. Before the move, 
the pointer should always be positoned at the first line of the N-line block. 
Immediately after the move, the pointer will always be at the last line of the 
N-line block at its new place. Because of the $T0 command, there are many 
variations of the $MOVE N TO commands. They are listed below: 



$MOVE N TO M 



Move N-line block to a new position so that 
the first line of the block is now line No. 

M. 



B. $MOVE N TO +M 



Move an N-line block to a new position 
starting immediately after the line which 
has a relative line number of +M from the 
last line of the block before the move. 



$MOVE N TO -M 



Move an N-line block to a new position 
iimied lately before the line vAiich has a 
relative line number of -M, relative to the 
first line of the block. 



D. $MOVE N $ 



Move an N-line block to the end of the 
file. 



E. $MOVE N TO /TEXT/ 



F. $MOVE N TO /TEXT/K 



Move an N-line block and place it 

immediately after the line beyond the 

pointer that has the first appearance of 
the string /TEXT/. 

Move an N-line block and place it 

immediately after the line beyond the 

pointer that has the first appearance of 

the string /TEXT/ that starts at the Kth 
column. 



Example : 



$MOVE N TO M 



Line 
Number 

1 
2 
3 
4 
5 
6 
7 



Old Text and 
Pointer Position 

11 

* 221 

33 J 1 
44 1 
55*^ 
66 
77 



$MOVE Command 

$MOVE 2 TO 3 



New Text and 
Pointer Position 
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Example ; 



$MOVE N TO +M 



Line 
Number 

1 
2 
3 
4 
5 



Old Text and 
Pointer Position 

11 

- * 22 1 
33] 1 
44 ; 

55 : 

66^ 

77 



$MOVE Command 

^10 2 TO +3 



New Text and 
Pointer Position 



Example ; 



$MOVE N TO -M 



Line 
Number 



Old Text and 
Pointer Position 



$MOVE Command 



New Text and 
Pointer Position 



1 

2 
3 
4 
5 
6 
7 


11 

22"^' 
33 '< 
44 ; 

-551 • 

66 J 
77 


$M0 2 TO -3 


11 

55] 
^ > 66 J 
22 
33 
44 
77 


Example : 


$MOVE N TO $ 






Line 
Number 


Old Text and 
Pointer Position 


$MOVE Command 


Nev\? Text and 
_Po inter Position 


1 
2 
3 
4 
5 
6 
7 


11 

-22"! 

33| 1 
44 1 

55 ; 

66 1 


$M0 2 TO $ 


11 
44 
55 
66 
77 
22' 
- ^ 33 


Example : 


To interchange 


a pointed line with 


the next line. 


Line 
Number 


Old Text and 
Pointer Position 


$MOVE Command 


New Text and 
Pointer Position 


1 
2 
3 
4 
5 
6 
7 


11 
-" ► 22 - , 

33.. J 
44 
55 
66 

77 


$/'^C) 1 TO +1 


11 
33 

^ 22 

44 
55 
66 
77 



$MOVE 
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Exeatipl e : 



To interchange a pointed line with its preceding line. 



Line 


Old Text and 




New Text and 


Number 


Pointer Position 


_$MOVE Command _ 


Pointer Position 


1 


11 


$W0 1 TO -1 


11 


2 


22 n 




— 33 


3 


- -- 33 -^ 




22 


4 


44 




44 


5 


55 




55 


6 


66 




66 


7 


77 




77 



Example 



$MOVE N TO /TEXT/ 



Line 


Old Text and 




New Text and 


Number 


Pointer Position 


$MOVE Command 


Pointer Position 


1 


11 


^iO 2 TO '55 < 


11 


2 


22' 




44 


3 


33 h 




55 


4 


44 1 




22' 


5 


55_.! 




33 i 


6 


66 




66 


7 


77 




77 



Example ; $MOVE N TO /TEXT/K 



Line 


Old Text and 


Number 


Pointer Position 


1 


lb 


2 


--^^^ bl" 


3 


2b ~ "1 


4 


b2' 1 


5 


3b ,_J 


6 


b3 


7 


4b 



_$MOVE Command^ 

%M0 2 TO /Sb/1 



New Text and 
Pointer Position 



(b=blank) 



The search for /TEXT/ starts from the next line frcxn the current line. 
Thus the search will emit the current line and all lines prior to that. The 
following example shows an error of search: 
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Example ; $MOVE N TO /TEXT/ 

Line Old Text and New Text and 

Number Pointer Position $MOVE Co mmand Pointer Posit ioj}_ 

1 11 %M0 2 TO /33/1 11 

2 22 22 

3 33 33 

4 44 44 

5 -—551 - -77 

6 66] I 

7 77 t (Search unsuccessful vrtien 

reaching ti-ie end of file, 
and moved lines are lost.) 



(2) Multiple command format 

Moving an N-line block of text can^ also be achieved with first a $MOVE N 
coimiand, and then when the destination is accurately positioned, with another 
$HERE command. What actually happened is that the N-line block is temporarily 
stored in an auxiliary file E3, and vfaen the $HERE command is given, the lines 
will re-enter the computer memory. The advantage of moving lines in this manner 
is that the procedure becomes less error ptone because of accurate positioning 
of the destination. In the nine examples shown above for the single-command 
format, movements of lines can also be acccsnpl ished by a three-step procedure: 
$MOVE N, accurate positioning by $T0, and then $HERE commands. Observe the 
difference in the line numbers used between the single-cojTimand and the 
multiple-command formats. 



2.12 COPY Coirenand 

This command will duplicate a block of lines elsevrfiere in the file. The 
format of the ccHimand is very similar to that of $MOVE, and so are the 
variations. Instead of using TO for positioning in the $MOVE command, $COPY 
uses AT for positioning the pointer. The variations of $COPY are listed below 
with similar definitions as applied to the $MOVE variations: 

(1) Single command format 



A. 
B. 


$COPY N AT M 
$COPY N AT +M 


C. 


$COPY N AT -M 


D. 


$COPY N AT /TEXT/ 


E. 


$COPY N AT /TEXT/K 


F. 


$COPY N AT $ 



$COPY 
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(2) Multiple command format 

$COPY N 

Accurate positioning cotunand 

$HERE 



These variations are again illustrated by examples: 

Example A ; $COEY N AT M 

Line 
Number 



Old Text and 




New Text and 


Pointer Position 


$COPY Command 


Pointer Position 


11 


$C0 2 AT 3 


11 


► 22 . _ 

33 «J 




22 




22i 


44 




— ^ 33j 


55 




33 


66 




44 


77 




55 
66 

77 



Example B: $COPY N AT +M 






Line 


Old Text and 




New Text and 


Number 


Pointer Position 


$COPY Command 


Pointer Position 


1 


11 


$C0 2 AT +3 


11 


2 


-H-22" 




22 


3 


33 "1 




33 


4 


44 ; 




44 


5 


55 , 




55 


6 


66 \ 




66 


7 


77 




22 1 


8 
9 






^33 J 

77 



Example C: $COPY N AT - 


-M 


Line 


Old Text and 




Number 


Pointer Position 


$COPY Command 


1 


11 


$C0 2 AT -2 


2 


22 




3 


33 




4 


44 




5 


— 55-"l 
66 


Watch out for 


6 


tricky minus 


7 


77 


count here. A 


8 




poor feature. 



New Text and 
Pointer Position 



11 

22 

33 

44 

55 > 

66 J 

55- 

66 

77 



I -2. lines 
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Example D : $COPY N AT /TEXT/K 

Line Old Text and New Text and 

Number Pointer Position $COPy Command Pointer Position 



1 lb %C0 2 AT /3b/l lb 

2 bl \ bl 

3 2b J T 2b 

4 b2 I b2 

5 3b ' 3b 

6 b3 bl 1 

7 4b 2b .' 

8 b3' 

9 (b=blank) 4b 



The four examples above show how $COPY command may be used in a 
single-command format. If $COPY is used in a multiple-command format, the 
commands to produce the same results as the above four examples will be: 

Example A Example B Example C Example D 



$C0 2 $C0 2 $C0 2 $C0 2 

$AT 2 $AT+2 $AT -3 $AT/3b/l 

$HE $HE $HE $HE 

Since the pointer will be positioned at a line beyond the line of the copied 

group after each $C0P5f N command, the counting of lines is different. 
Therefore, observe particularly the number of lines of movonent for the pointer 
in the first three cases. 



2.13 Editing-Control- Fu nction Switch Commands 

There is a group of editing control functions that UPDATE can turn them 
ON or OFF by commands. When a function is switched CW, that function will be in 
force. Such software switches have many similar properties as a hardware 
switch. For example, a function will be OFF unless explicitly turned OFF, or 
vice versa. Turning C*I a switch several times in succession is equivalent to 
turn it on just once. 

(1) Functions permanently switched ON or OFF by UTOATE 

The following is a group of editing ccxnmands that provides a variety of 
control functions during an editing session. It has a general format of 

$KEYWORD = YES 
$KEYWORD = NO 

where KEYWORD represents an option, and YES or NO to indicate whether such 
option is to be switched CN or OFF. Wlien a function is switch(5d CN, the effect 
is permanent for the remainder of the editing session or until iche function is 
explicitly turned OFF. When UPDATE is first called, all thes(3 switches are in 
the OFF condition. 



Editing Control Function Conmands 
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A. $ARROW=YES; $ARRClW=IsP When this option is turned on, all 

control characters in the current line can be displaced by the TYPE 
command as either "-character or "-character, such as "L or "L, "l or 
"1. I 



Example ; Often, in entering a text line, the shift key of the terminal 
is used to enter special symbols, such as "*" or "]". If by mistake, the 
control key is used instead of the shift key, the mistake cannot be easily 
detected because a control character will not be echo-printed. Observe the 
following segment of an editing session: 



UPDATE Commands 



Comments 



>$TYPE 

DIMENSION X(10) 
>$AEROW=YES 
>$TYPE 

DIMENS"[ION 
>$CHANGE /'•[// 

DIMENSION X(10) 
> 



Printout seems OK 



Hidden non-print character 
Remove it. 
It's gone. 



B. $EDIT=YES; $EDIT=N O When a $EDIT=YES command is given, the 

UPDATE automatically inputs and prints out a "$" sign in column one. 
The user can thus enter the command keyword directly without the "$" 
sign. Unless there is a very heavy volume of UPDATE commands given 
in a session, $EDIT=YES is a command of convenience, sometimes of 
questionable merit. When this option is switched on, UPDATE will 
interpret every line as a command, because the computer already 
receives a "$" sign automatically as the first character. It causes 
a dilenma if you actually wants to insert a line. A command 

$CREATE /TEXT/ 

will cause a line represented by TEXT to be inserted after the 
current line, and may be used for insertion v^en the $EDIT switch is 
on. 



Example ; 



A segment of editing involving $EDIT switch. 



UPDATE Commands 



Comments 



>$TyPE 2 

C Illustrative Example 

C Main Program 

>$EDIT=YES 

>$C WRITTEN BY T. W. SZE 

?>^R/C WRITTEN BY T. W. SZE/ 

>$ 



EDIT switch is OFF. 

Two lines typed out 
EDIT switch is now CW. 
Attempt to insert a line; 
note error return 
"$" automatically given 
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C. $ECHO=YES; $ECHO=ISD When this switch is turned on, an 

inserted line will be echo-printed on the terminal right after the 
insertion. This switch is very useful v*ien used in conjunction with 
the case-shifting switch or the tab-setting switch. 

Example ; In the following example, a table is being constructed with 
data in columns 11-12, 21-22 and 31-32-. Tabs are set at 11, 21 and 31. The 
$ECHO=YES switch will echo back entered data at the correct column positions. 



UPDATE Ccsnmands 




Comments 


>$TAB=11,21,31 


Set TAB. 


>$ECHO=YES 




Set ECHO switch 


>(Tab)23(tab)5S(tab)92 




Enter data. 


23 55 


92 


Data echoed. 


>(Tab)43(tah)12(bah)28 






43 12 
> 


28 





$ERROR=YES; $ERR0R=1SD When this switch is turned on, an error 

message will be reported on the terminal when an error is canmitted. 
If the switch is turned off, only a "?" symbol is reported to 
indicate an error. 



Example ; Suppose UPDATE is editing a file that contains 5 lines. The 
contents of these 5 lines are 11, 22, 33, 44, and 55 respectively for each line 
starting at columrir-l. The pointer is now at line No. 3. Observe the errors made 
in the editing session and error message received: 



UPDATE Commands 



Comments 



>$TYPE 

33 

>$CH/ll/66/ 

?>$ERR0R=YES 

>$CH/ll/66/ 

?Sequence not in current line 

>$CH/33/66/ 

66 

>$T0/88/ 

?Reached last line of text 

>$WHERE 

[5] 

>$DUNE 

?Illegal corimand or structure 

>$DONE 

Catalog name=>DATA, DAT 

File .... Already existing file 

Catalog name=>DATAX.DAT 

1 blocks written on DATAX.DAT [115103 



Display line 3. 

To make a change. 

"?" symbol returned. Turn on 

error message and try again, 

meaning can't find a match 

Try again. 

Change verified 

Move pointer . 

Can't find /88/, 

Check line number. 

Close the editing. 
Incorrect spelling 
Try again. 
Name DATA. DAT given 
IDuplicate name error 
Give another name. 
,320571] 



Editing Control Function Commands 
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E. $GAG=YES; $GAG=NO After the commands TO, TRAVEL, CHANGE, 

SUBSTITUTE are executed, the terminal automatically prints out the 
new current line. While it serves as a convenience, it may become a 
nuisance if there is too much output ._ To suppress the printing, use 
$GAG=YES command, and the current line' can only be printed out by an 
explicit $TYPE command. This function can be cancelled by a $GAG=NO 
command . 



Example ; 



TO suppress unwanted verification printout: 



> ^SUBSTITUTE /ITEM1/ITEM2/ 
volume 
of 
verification 
pr in tout 
> 



> $GAG=YES 

> $SUBSTITUTE/ITEM1/ITEM2/ 

> 



$LINE=YES; $LINE=NO 
line nuniEer will be 
terminal displays. 



When a $LINE=YES command is given, the 
displayed along with the line text in all 



Example ; 
turned on: 



Observe the difference before and after the LINE switch is 



UPDATE Commands 



Comments 



>$AT1; TYPE 3 

11 

22 

33 

> $LINE=YES 

y$ATl; TYPE 3 

[1] 11 

[2] 22 

[3] 33 

> 



Type out first 3 lines, 
no line numbers. 



Type out first 3 lines 
with their respective 
line numbers. 



$UPPER=YES, $UPPER=NO; $LOWER=YES, $LOW=NO 

Many older or inexpensive terminals are built without capability of 
entering or outputing lower-case letters. Hence, it is often 
desirable to enter upper-case letters but store them as lower-cases. 
Since both $UPPER and $LOWER swtiches affect the cases, the aggregate 
effect depends on the combination of the two switches: 



UPPER 



LCWER 



Aggregate Effect 



MD 


NO 


Store as entered 


YES 


NO 


Store as upper cases 


NO 


YES 


Store as lower cases 


YES 


YES 


store as entered 
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The readers are reminded that all switches ar originally at OFF or NO 
states. However', if there are large volime of text data containing 
both upper and lower cases, such as a report or a thesis, it is not 
practical to use this switch if one has a upper-cas^i-only terminal. 
For such needs, the users are referred to the utility program RUNOFF 
(See Chapter 7) v^ich contains many word-processing procedure 
including case-control. 

(2) Format of functions switched ON temporarily by UPDATE 

Frequently, it is desirable to switch certain functions (M only 
momentarily for the duration of one ccmmand. While the switch can always be 
turned on or off by commands, it will be convenient to construct a 
"spring-return" switch vrfiich will automatically be turned back to OFF after the 
coranand is executed. UPDATE provides this convenience by a command format in 
parenthesis: 

$CC»1MAND (SWITCH FUNCTION) Argument 
$COMMAND (FUNCTION-1) (FUNCTION-2) Argument 
$COMMAND (FUNCTION-1, FUNCTION-2) Argument 



Examples ; The following examples show equivalent commands 
Equivalent Equivalent 

$TYPE(LINE)3 



$LINE=YES 
$TYPE 3 
$LINE=NO 



$ERROR=YES 

$TO/XYZ/ 

$ERROR=NO 



$T0 (ERROR) /XYZ/ 



$GA=YES 

$ER=YES 

$SUAXAY/ 

$GAG=NO 

$ERROR=NO 



Equivalent 



$SU(GA,ER)/XX/YY/ 



2 . 14 Editing Function Val ue-Setting Commands 

In this group of ccmmands, the common format is: 
$COMMAND = n 



where "n" is an integer. The meaning of 
they are presented as follows: 



is defined for each function, and 



A. $FACTOR= N This command will modify the size of the memory 

"window". Normally, there is no need to adjust the window. Only 
vrtien editing a very large file, there may be justification to adjust 
the window to a larger size in order to reduce the overhead 
file-copying when the pointer is backed outside the current window. 
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This was explained in a previous section in reference to Figure 2.1. 
When $FACTOR is given without an argument, it is an inquiry for the 
size of monory assigned behind the current line. A number typed out 
on the terminal indicates the size in number of lines. 



B. $LENGrH=N , and $SIZE=N Either of the commands will set the 
length of each line to N characters long. If the text in a line is 
less than N-character long, spaces after the last character are 
padded with blanks. If the text in a line is more than N-character 
long, the extra characters are simply truncated and removed. 

Complications arise v^en there are tabs characters in a line. 
Although each tab character counts only as one character in the line 
text, its effect is equal to multiple and variable blanks when it is 
translated. Therefore, if the $LENCTH or $SIZE command is used to 
prepare a fixed- length record file, it is desirable to let UPDATE 
translate tabs into blanks by $TAB command, so that a correct number 
of characters will be counted. The main usefulness of this canmand 
is to construct a data file in v^ich the record size is uniform for 
every record. If $IjENCTH command is applied without any argument, it 
beccmes an inquiry about the length of the current line. The 
computer will respond with a number vrtiich is equal to the number of 
characters (including blanks) in the current line. 

C. $SAVE=N This is a safety feature that can be very useful 
in long editing sessions. If the editing session in progress and the 
System must be re- initialized due to crash, broken communication 
linkage or any other emergency situation, all fruits of labor during 
that editing session are lost. Or, when the connect-time of the 
terminal expires, there will be no allowance for the user to finish 
or to close the editing, and he is forced to sign off immediately. 
The result of the current editing is also lost. If such contigency 
may be likely, it is prudent for a user to apply a command $SAVE=N, 
The following will then be acccmpl ished : 

When a ccanmand such as $SAVE=15 is issued, the output file E2 
will be periodically closed, stored, and reopened to continue, for 
every 15 lines output into the E2. Thus, in case of a system 
failure, the user will in his disk a TMP file named E200xx.'IMP that 
contains the status of last save. This would cut the loss of 
information to a small amount. The exact name of the TMP file is 
reported on the user's terminal. Should the editing goes to the 
ccsnpletion successfully, that TMP file is deleted automatically. The 
disadvantage of such safety measure is that it significantly slows 
down the editing operation because of the extra file operations the 
ccroputer is required to do every N lines. 

D. $TAB=Nl,n2,... When the UPDATE is first called, the tab 
settings are at the system default positions, namely at colunns 9, 
17, 25, etc (every 8 columns) . To reset the values of tab setting to 
a different set, use the command $TAB=nl,n2, . . , where "nl", "n2", 
etc., are the new tab settings. When a tab key is subsequently 
entered, it will be translated into multiple blanks, the number of 
vAiich depends on v^ere the tab key is entered on the line. Since tab 
key often causes problem in the count of characters in a line, 
especially in the case of a fixed record- length file, it is useful to 
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use this command even though the tab settings may be tlie same as the 
system default. 

The chief usefulness of this command is to prepare tables with 
fixed columns, or to prepare a fixed column data file. 

Example ; Construct a roster of names with last niames starting 
on column-5 and initials starting on colunn-25: 



y$TAB=-5^25 






y(T)Doe(T)JD 




(T) =Tab key 


XT ) Jones (T) MS 






XT) Li (T)JG 






XT)Kong(T)KK 






> (T)Modzelewski(T)SW 






XT) Smith (T)YT 






>UT1; type 6 






Doe 


JD 




Jones , 


MS 




Li 


JG 




Kong 


KK 




Modzelewski 


SW 




Smith 


YT 




> 







Example ; Prepare a data file that has a FORTRAN format of 2(7X,I3) 

(T)=TAB KEY 



y$TAB=a,18 




>(T)238(T) 23 




XT) 12(T)8B6 




XT) 44 (T) 433 




>'$AT1; TYPE 3 




234 


23 


12 


856 


44 


433 


> 





2 . 15 Miscellaneous Editing Commands 

(1) Contnands regarding to current line position 

A. $WHERE and $LINE Either of these two ccmraands will cause the 
absolute line number reported on the terminal. 

B. $IjENQrH This conmand will cause the length of the 
current line in number 6f characters reported on the terminal. Also 
refer to the ccxnmand $LENGrH=n command. Note that $:CiENGrH is to 
inquire about the length, while $LENGrH=n is to set the length. 
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C, $POSITION /TEXT1/T EXT2/.V. This command will type out the 
positions (column nimbers) of the first character of each of the 
string TEXT1,TEXT2, . . . in the current line. 

(2) Insertion Commands _ While UPDATE will accept any input line 
without the "$" sign in column i to be an inserted line, there are occasions 
insertions may be made easier by the following commands: 

A. OVERLAY /TEXT/K , or $K /TEXT/ This command will place a string 
of characters "TEXT" in the current line beginning at the Kth column 
and replacing v^iatever was there before. 

Example ; Observe the effect of a command $4/ABCD/: 

Before After 

1234567890 123ABCD890 

B. $PLACE/TEXT/K This command will insert the string "TEXT" 
in the current line starting at the Kth column. Unlike the $OVERIiAY 
command, the displaced characters do not disappear; they are merely 
pushed back to the right to make room for the inserted string. 

Example ; Observe the effect of acommand $PLACE/ABCD/4 and compare it 
with tliat of the previous example: 

Before After 



1234567890 123ABCD4567890 



$REPIjACE N When this command is given, the specified number 
of line in the file beggining with the current line is deleted, and 
the same number of lines subsequently typed on the terminal will take 
their palces. This command is equivalent to a compounded command of 
$DELETE (GAG) ; AT-1 . The command $REPLACE is equivalent to 
$REPLACE 1. 



Example : Observe the difference between REPLACE and DELETE commands: 



$DELETE command 


$ REPLACE command 


>$AT1; TYPE 5 


>$ATlj 


TYPE 5 


11 


11 




22 


22 




33 


33 




44 


44 




55 


55 




>$AT3i DE(CrAG) 


>$AT3; 


RE 


>XX 


>XX 




>$ATlj TYPE 5 


>$ATlj 


TYPE 5 


11 


11 




22 


22 




44 


XX 




XX 


44 




55 


55 
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(3) Length-manipulating coitimands 

The end of a line is indicated by a carriage-return character. The 
number of characters between two carriage return characters, not counting the 
carriage return characters themselves, is the length of a line. rcherefore, by 
adding a carriage return some place in a line, it may be broken into two lines. 
Conversely, if the carriage return at the end of a line is ronoved, that line is 
joined with the next. In manipulating the length in this manner, caution should 
be exercised regarding the blanks at the end of a line. Normally, when there 
are trailing blanks in a line, UPDATE simply ignores them in order to conserve 
storage spaces. Thus, the number of blanks at the joint should be carefully 
observed, otherwise the space at the "seam" will be in error. The associated 
commands are now discussed next. 



A, JOIN command This ccxnmand will remove the carriage return 

character at the end of the current line, thereby join it with the 
next line. Because all trailing blanks are deleted, any blanks 
required at the seam must be provided by the leading blanks of the 
second line in the joining process. 



B. $BREAK command 



This command will insert a carriage return 



character "Into the current line, thereby braking it into two lines. 
It has twD formats: 



$BREAK N 
$BREAK /TEXT/ 



Both "N" and "TEXT" indicate the end of the first line after the break. Thus, 
the second line after the break will begin with the old (N+l) th column as its 
first coliitin, or the column immediately after the string "TEXT" as its first 
column. 



Examples ; 
specially to the 



Observe the effect of $JOIN and $BREAK. 
'seam", before and after the operation. 



Pay attention 



>$TYPE i 
11 

22 
33 

>$JOIN 
11 22 
>$JOIN 
11 2233 
> 



>$TYPE 2 
12345 67890 
•>$BREAK/5/ 
12345 
67890 
> 



>$TYPE 2 
12345 67890 

■>$BREAK/5 / 

12345 
67890 
> 
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SELECTED ADVANCED TOPICS IN UPDATE 



The materials presented in the PRIMER (pp, 37-42) are for the beginning 
users. The materials presented in the COMMANDS and PROCEDURES (pp. 43-62) are 
for the average users. The combined materials should be more than adequate for 
most editing jobs. Occasionally, there may be special and frequent needs for 
very sophisticated editing and therefore a more complicated set of commands may 
be useful. However, unless you have special needs that require the commands in 
the following sections, your time may be better invested by thoroughly 
familiarizing yourself with the basic material and then going directly to the 
SUMMARY sections (page 72) . It should be noted that the objectives 
accomplishable by the complex commands can also be accomplished by simpler 
commands in more steps. Or, it may require getting on and off from UPDATE 
several times. 

Three topics will be presented: auxiliary files, conditional commands, 
and editing programs. 



2.16 Preparation and Use of Auxiliary Files 

Sometimes, it is desirable to construct an auxiliary file which contains 
a selected excerpts fran a main file. Or, in creating a new file, certain of 
its lines may be contributed by an already established file. Using only 
commands presented so far, one can take the established file, delete all 
unwanted lines, and the result would be an excerpt. In this section, some 
special UPDATE commands are presented that will facilitate such a task. 

(1) Auxiliary output file preparation 

A main file is already in existence and has been called by UPDATE. It is 
required now to make one or more auxiliary files v^iich contain excerpts fran the 
main file. Three commands are provided for this purpose: 

A. $ONTO command This canmand will open an auxiliary file in 
the disk into v^ich excerpts of the main file will be transferred. 
The opened file will be given a filename in the ONTO command format: 

$ONTO = standard file specification 

where the standard file specification will contain a name and an 
extension, 

B. $Pin? N coimiand This command will transfer N lines, beginning 
with the current line, fran the main file to the auxiliary file 
opened by a previous $ONTO command. If N is omitted in the command, 
it is equivalent to $PUT 1, Caution: After the lines are 
transferred to the auxiliary file, those lines are no longer in the 
main file. If the editing session is allowed to end with a normal 
$END or $FINISH command, the new main file will be the old file minus 
those exerpts taken out. If you do not wish to disturb the old main 
file, you must not let the editing session come to a normal end. As 
soon as the auxiliary file preparation is completed and closed, apply 
CTRL-C to abort the editing job. 
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C. 



$CLDSE command 
as a wDCking 
the disk. 



file; 



The command $ONTO opens an au>:iliarY file E3 
$CIDSE command closes it and stores it away in 



Examples ; Two auxiliary files X.DAT and Y.DAT are prepared composed of 
excerpts fran a main file SAMPLE.DAT. Observe the sequence of editing commands 
and the "Before" and the "After" conditions of the files: 



(BEFORE) 
SAMPLE.DAT 

11 
22 
33 
44 
55 
66 
77 



Editing Coimiands 

.UPDATE SAffPLE.DAT 

11 

>$AT2; OmO=X.DAT 

>$PU2; AT+1; PU2] CLOSE 

>$AT1; ONTO^Y.DAT 

>$PU1; CLOSE; END 



(AFTER) 
SAMPLE.DAT X.DAT 



44 

77 



22 
33 
55 
66 



Y.DAT 



11 



(BEFORE) 
SAMPLE.DAT 



Editi ng Com mands 

11 .UPDATE SAWLE.DAT 

22 11 

33 >$AT2; ONTO--X.DAT 

44 >$PU2; AT+1 J PU2; CLOSE 

55 >$AT1; OmO=l,DAT 

66 >^PUli CLOSE 

11 >+C 



(AFTER) 
SAMPLE.DAT X.DAT 



11 
22 
33 
44 
55 
66 
77 



22 
33 
55 
66 



_Y.DAT^ 
11 



(2) Auxiliary input file operation 

Often, the input insertion to a file is preferred to be lines from an 
existing file if it is already available. Presumably, that file has been 
checked out already and it is not only convenient to copy those lines but also 
reduces the chances of error. 



A. $FROM command While ■ the $ONro ccsranand specifies a 

destination auxiliary file, the $FROM command specifies a source 
file. Its command format is similar to that of the $01OTD command: 

$FROM = standard file specification 



If this file resides in another user's disk area, his PEW should be a 
part of the file specification, such as NAME. EXT [m,n] . 



B. $ADVANCE command 



When the $FRDM command is first applied, its 



pointer is positioned at line 1. The $ADVANCE n cominand is used to 
position the pointer in the auxiliary file specified by the $FRDM 
command. Although n is an unsigned integer, it is interpreted as a 
relative line number. 
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C, $GET coimiand CSice the pointer of the auxiliary file is 

positioned correctly in the auxiliary file, a command of $GET n will 
transfer n lines, starting with the current line, frcxn the auxiliary 
file to the main file. After the transfer, the lines in the 
auxiliary file are not erased. 

Sometimes, excerpts are taken from several auxiliary files. In changing 
from one auxiliary file to another, it is necessary to disengage the old one 
before engaging the new. For this reason, the command $FKOM is designed to 
disengage automatically the old auxiliary file and engage the new file. Each 
time a file is engaged, the pointed will be positioned at line 1. 



Examples; A file SAMPLE.DAT and two auxiliary files X.DAT and 
are all available in the disk storage. Their contents are as follows: 



Y.DAT 



____ZU£-.Cojitents_---'LBEF<^E" 

SAMPLE.DAT X.DAT Y.DAT 



■■■ 








11 


AA 


XX 


22 


BB 


YY 


33 


CC 


ZZ 


44 


DD 


UU 


55 


EE 


W 


66 






77 







Another file Z.DAT is now prepared by inserting certain lines fron 
and Y.DAT into SAMPLE.DAT. This is shown below: 



X.DAT 



EditjuTg^Commands^ _ 

.UPDATE SM1PLE.DAT 

11 

y^AT2; FROM=X.DAT 

>$ADVANCE 1; GET 2 

>$AT/66/; FROM=Y. DAT 

'>$AD2; GET 2: DONE 

QPSt'lSyG NAME=>Z. DAT 

1 BLOCK WRITTEN m Z.DAT 



EXIT 



JFile_ Contents =--,"AFIER!' 

SAMPLE.DAT X.DAT Y.DAT 



Z.DAT 



11 


AA 


XX 


11 


22 


BB 


YY 


22 


33 


CC 


ZZ 


BB 


44 


DD 


UU 


CC 


55 


EE 


W 


33 


66 






44 


11 






55 
ZZ 
UU 
66 

77 



2.17 Conditional Editing Cormands 

The UPDATE is enhanced in capabiltiy by being able to make "decision" 
vrfiich one of two alternate groups of editing ccxnmands are to be executed. 



The basic structure of decision-making is as follows: First, a question 
is asked to v^iich a true-false answer is stored. This is accomplished by 
issuing a $IF command. If the answer is affirmative, issuing a $THEN command 
will execute a group of "execute- if- true" eiditng ccxnmands. (If the answer is 
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negative, issuing a $THEN command will receive no response fron them.) If the 
answer is negative, issuing a $EI£E command will execute a group of 
"execute-if-false" editing ccmmands, (Similarly, if the answer is affirmative, 
issuing a $ELSE command will receive no response from them.) Such a structure is 
simialr to the conditional structure in many language processors, and is 
graphically illustrated in a flow chart as shown in Figure 2.2. 



$IF command 



One or more I 
$ELSE commands 




Tru e 




One or 
more 
$THEN 
commands 



I Other Editing Commands ' 
Figure 2.2 Flow Chart of Conditional Editing Commands 



{ 1 ) Single conditional com mands 



A. $IF command As illustrated in Figure 2.2, the $IF command 
asks a true- false question, and its answer is stored away, setting 
the stage for subsequent actions of $THEN and $ELSE commands. Since 
the UHDATE has immediate information only on the current line, the 
question asked must pertain either to the current line number or to 
its content. Therefore, the formats of the $IF command are limited 



to the following: 
$IF format 
$IF /TEXT/ 
$IF /TEXT/K 

$IF $TEXT$ 



Question Asked 



Is there a string "TEXT" in the current line? 

Is there a string "TEXT" in the current line 
that begins at the Kth column? 

Ignoring blanks, tabs, and difference between 
upper and lower cases, is there a string 
"TEXT" in the current line? 



$IF n 



Is the current line number equal to n? 
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Notice that the formats of the first three are very similar to those of 
$T0 commands. 



B. $THEN and $ELSE conmands 



The $THEN and the $ELSE commands will 



specify and execute the alternate sets of conmands depending on the 
answers to a previously issued $IF command. The command format is as 
follows : 

$THEN /command 1; command 2; .../ 

$ELSE /command 1; command 2; . . ./ 

The commands between the delimiters "/" follow the rules of 
compounded ccxnmand structure, as discussed in section 2,10. 

Example ; $IF/F(»MAT/7; THEN/WHERE; TYPE 2/; EI£E/DELETE 2/ 

Function ; Examine the current line. Does it have a string of characters 
"FORMAT" beginning at the 7th column? If yes, print out the 
line number and type two lines. If no, delete 2 lines. 

(2) Nested conditional comma nds 

Each of $THEN and $ELSE command contains a set of embedded ccxnmands in 
the compounded form. If the embedded commands contain another IF command, we 
now have a nested structure. The following flow chart shows a typical example 
of nested ccsnmand structure: 



First level 
IF 




2nd level 

[type 2^ ELSE 






First level 
THEN 



The function of this flow chart is as follows: First examine the current line 
to see if there is a character "A". If no, do nothing. If yes, then examine if 
there is also a character "B" in the current line. If yes, type one line; if 
no, type 2 lines. These functions may be accomplished by the following nested 
command : 
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$IF/V; THEN/IF*B*; THEN*TYPE*; ELSE *TYPE 2*/ 



First level IF 
Second level IF 



First level actions 
Second level actions 



In using a nested conditional structure, one should 
the following: 



be cautioned about 



A. The main advantage of the nested conditional structure is to 
compress many editing coranands into a single compounded one, so that its 
execution will be more efficient. The UHDATE allows a maximum of ten nesting 
levels. The main drawback is that constructing a nested structure is a very 
error-prone process. Furthermore, more levels it goes into, less man-machine 
interaction is available to the user. Therefore, even though the UPDATE is 
machine-effective for high-level nesting, it is a poor practice for a user to go 
much beyond the second level. Otherwise, an editing session will be very likely 
degenerated into a debugging session for editing ccmmands. An exception to this 
advice is when one has some nested ccmmands that will be used repeatedly by the 
user or others. In such a case, it may be justifiable to spend a lot of time to 
debug it and store it for later repeated use. 

B. In addition to the logic involved, the most likely source of error 
in a nest construction is the choice of delimiters. Normally, any special 
symbol pair may be used as delimiters (or as "quotation marks") . Since a nested 
structure is basically a compounded structure, the semicolons ";" must be 
reserved to separate the ccmmands. Moreover, there should be no ambiguity 
between the command delimiters of IF, THEN, EI5E at different levels. 
Therefore, it is advisable to assign an unique delimiter symbol for each level. 
See the following illustrative examples: 

Example : Consider the following nested ccmmands with their respecitve 
interpretation of functions by means of flow chart: 



$IF/V; THEN/IF*B*/; THEN*TYPE*; ELSE *TYPE 2*/ 




[type 2 J 



Conditional Commands 

$IF/A/; THEN/IF*B*; THEN*TYPE*/; ELSE *TYPE 2* 

7V?> </B/?, 

[type 2 
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IF/V? THEN/IF/B/; THEN/TYPE//; ELSE /TYPE 2/ 
Incorrect use of delimiters! 



C. Several nested coranands may be ccmpounded together to form a 
compounded nested canmand. In doing so, one must be careful about the correct 
placement of the THEN, ELSE commands. Each time when a first-level IF command 
is executed, its true-false answer replaces that obtained in a previous IF 
command. The same goes for the subsequent level IF commands. Thus in the above 
example, the actions of both statements may be combined by this statement: 

$IF/A/; THEN/IF*B*; TH*TY*;EL*TY2*/;TH/IF*B*;TH*TY*/;EL*TY2* 



(3) Conditional with logic connectives 

Consider the following fully-developed two-level nested structure: 




Accomplished by Placing 



fBOX dCll LEGEND: T=TRUE 

F=FALSE 



Logic Conn 


3Ct 


ve 


the same 


actions 


in Box 


Between Ql 


& <; 


?2 


00 01 


10 


11 


AND 










X 


OR 






X 


X 


X 


NAND 






X X 


X 




NOR 






X 






XOR 






X 


X 





By placing identical editing actions in the appropriate boxes as shown in 
the accompanying table, a logical connective between the answers to Ql and Q2 
may be acccmpl ished . For example, if one wants to type the line if either 
character "A" or character "B" (or both) is present, he should place the TYPE 
command in boxes 01, 10 and 11. The result is the following ccmimand: 

$IF/A/; THEN/IF*B*; THEN *TyPE*; ELSE *TYPEV; ELSE/IF*B*; THEN *TYPE*/ 

Actually, one can see that there is an INCLUSIVE OR, or logical union relation 
existed in this case. The UPDATE processor has simplified the matter by 
providing five coranands specifying logic connectives: AND, OR, NAND, NOR and 
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XOR. They are respectively for logic intersection, logic union, negation of 
AND, negation of OR, and EXCLUSIVE OR. Thus, the above example can now be 
written as: 

$IF/V; OR/B/; THEN /TYPE/ 

There is one important caution in using the logic connective canmands. 
Unlike the tvro-level nested comm^ds, the second- level question does not 
establish an independent answer (True-False) but modifies the first one. 
Therefore, if the first- level question alone is to initiate some THEN or ELSE 
action, it better be done before the answer is changed by the logical connective 
commands. Observe the difference between the following two editincj ccwnmands: 

$IF/A/; EISE /TYPE/; OR /B/; THEN /DELETE/ 

$IF/A/; OR /B/? EISE/TYPE/; THEN /DELETE/ 

The difference would be the execution of ELSE/TYPE/ segment. 



2.18 Editing Programs 

In the UPDATE processor, the compounded command structure enables a 
series of command executions in one pass. The TRAVEL, GO, and STOP commands 
result in the looping capability. The conditional canmand group IF, THEN, EI5E, 
and logic connectives yield the decision-making capability. Combining all of 
these, one has the makings of a ccsnplete stored editing program. However, it is 
not always desirable to construct editing programs for one-shot usage as they 
are very wasteful of user resources. Moreover, accuracy of editing requires a 
high degree of user-machine interaction which a complete editing program will 
deprive. Therefore, construction of editing programs should tie limited to 
ajplications of wide and frequent usages. 

Two such program are given as illustrative examples: 

Example ; Given a FORTRAN program, design an editing proc|ram that will 
print out all FCKMAT statements. Assume all FORMAT statements have the keyword 
"FORMAT" beginning at colunn 7, but some of the FORMAT statement may have 
continuation cards. 

The logic of the program may be described by means of a flow chart shown 
on the next page. 

In the ccmpounded structure form, the resulting program (one line) is as 
follows : 

$GAG=YES;AT/F0RMAT/7;TYPE;TR+1; IF/C/l;OR/*/l; THEN/GO/; IF/ /(5; 
THEN/AT-1; AT ' FORMAT ' 7/; TYPE; GO 

After this command is completed, all FORMAT statements will have Ibeen typed out 
on the user's terminal. An error report sign "?" will also be typed out, 
because when the search reaches the end of file, the $TR+1 coitmand will still 
attempt to advance 1 line. If the above program has POT commands instead of 
TYPE coitmands (with CNTO command issued previously) , this program would have 
prepared an auxiliary file that contains all FORMAT statements in the FORTRAN 
program. 
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GO 



Search for /FORMAT/7. 
When found, type It. 



Lr 



Advance 1 I Ine 




GO 



Backup 1 I Ine; 
search for /FORMAT/7 



Exampl e ; The equivalence between the 026 and the 029 key punch code is 
shown below: 



026 Punch 



029 Punch 



% ( 

< ) 

Other characters have the same punch codes. 

$TR+1; IF/ /;TH/AL. . ;AT-l/;OR/&/;TH/AL.& .+. ;AT-l/OR/@/;TH/AL.@ . ' . ; 
AT-l.;OR/%/;TH/AL.%. (,;AT-l/;OR/</;TH/AL.<.) .;AT-1/;G0 



Since a single-line ccxnpounded canmand is limited to a maximum of 150 
characters, tvo-letter abbreviations are used for all UHDATE keywords in the 
above command. 
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A SUMMARY OF FILE MANAGEMENT BY UPDATE 



2.19 File management Tasks 



(1) To create a new file from a terminal 

When UPDATE receives the input file name, the disk storage directory is 
searched. when the file is found, the file is loaded into the input working 
file. 

However, if the file name supplied by the user is null (represented by a 
carriage return and nothing else) , or if the file does not exist for the name 
given, the input working file is entirely blank. Thus, the only information 
that may go to the output working file wDuld be from the terminal, or from other 
stored files by insertion mode. In this way, an entirely new file may be 
created frcxn the user's terminal and stored in the disk. 

(2) To create a new file by batch 

The effectiveness of UPDATE to do editing job is mainly because its 
man-machine interaction. Therefore, UPDATE normally is not suitable for BATCH 
jobs. However, if the source materials are in punched card form, a file may be 
created from these cards by UPDATE submitted in BATCH. 

Suppose we wish to store a deck of data cards in disk and will name the 
file as DATA. DAT. First, a batch deck of cards is prepared that contains the 
following. Either will do: 



$JOB [m,n] 

^PASSWORD (password) 
.UPDATE DATA. DAT 



data 
deck 



$$END 
$EOJ 



$JOB [m,n] 

$PASSWORD (password) 
_, UPDATE 
(a blank card) 



data 
deck 



§$P0NE 
DATA. DAT 
"$EOJ 



In the above deck setup, the single-$ cards are BATCH comraaids, and those 
double-? cards are UTOATE commands read by BATCH. For more details on 
Multiprogram Batch, see Chapter 9. 



After the cards are prepared, read the cards in at a RJE card reader. 
The job will be executed by the ccmputer, and the file DATA. DAT is thus created 
from the cards. For card input used in this way, the same precaution should be 
exercised that there should be no "$" character in the first column in the data 
card deck. 
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(3) To copy a file 

A file may be dupl icated, and stored in the user's disk area by using the 
UPDATE in the folowing way: 

,UPDATE NAm.EXT[ll5103, 320571] ■ 

(UPDATE prints out the first line of NAME. EXT) 

>$DONE 

CATADOG NAME=> NEW. EXT 

This is eguivalnet to a monitor ccanmand of: 

.COPY NEW.EXT = NAME.EXT [115103, 320571] 



(4) To merge several files into one 

For example, if three files Dl.FOR, 02. FOR and D3.F0R are to be merged 
into one DX.FOR, it can be accomplished in the follwoing way: 

.UPDATE Dl.FOR 

(UPDATE prints out the first line of Dl.FOR) 

>Ut $ 
>$input= d2.f0r 

>$INPUT= D3.F0R 

>$DONE 

CATADOG mm=>DX.FOR 

This is equivalent to applying the monitor ccxnmand: 
.COPY DX.FOR = Dl.FOR,D2.FOR,D3.FOR 



(5) To prepare an auxiliary file from a source file 

The following is an example where an auxiliary file FORMAT. FOR is 
prepared by extracting all FORMAT statements (some of v*iich may be multiple-line 
statements) from the FORTRAN file SAMPLE. FOR, Assume that all keyword FORMAT of 
the FORMAT statements starts at the 7th colimn. 

.UDPATE SAWLE.FOR 

(UPDATE prints out the first line of SAMPLE, FOR) 

>$BEFORE 

>A (A=blank) 

>$ONTO=FORMAT. FOR 

>$GAG---yES; AT/FORMAT/7; PU; TR+1 ; IF/C/1 ; OR/ */lj TH/GO/; IF/ /6 one 

TH/AT- 1 j at 'FORMAT ' 7/; PU; GO line 

7>$CL0SE 

>fC' ?=error indication whien reaching tlie end 

of file and still wanting to "GO" 

The logic of the long command line in this example was discussed in Section 
2.18. 
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2.20 Examples of File Editing 

Two examples of editing a complete file will be given using the UPDATE 
editor. The first one consists of entirely text eidting, while tine second one 
is a stored program in FORTRAN. The following points will be helpful: 

(1) A careful proof-reading of the old text is essential. It is also 
desirable to do the proof-reading "off-line" to conserve valuable terminal time. 

(2) To increase the speed and efficiency of editing {and therefore to 
reduce time and cost) , all corrections should be marked on the listing, together 
with their line nun\bers if appropriate. 

(3) Moving from one record to another, the normal operation of the UPDATE 
editior is to go forward. In fact, backing up the pointer to some previous line 
may sometimes be costly because it will involve file re-writing and re-reading. 
Therefore, backing up is generally an inefficient process and should be used 
sparingly in view of processor efficiency. On the other hand, since deletions 
and insertions of lines during editing will change the line numbers of all lines 
of text beyond the pointer, it will be progressively difficult to locate the 
desired line by absolute line numbers. For this reason, in editing the text by 
its absolute line numbers, it is sometimes desirable that the editing be done in 
the reverse direction, starting from the end of the file and working backwards 
toward the front. In this manner, the deletion and insertion of lines will not 
affect the line numbers of the portions of the file not yet edited. Here we are 
trading off machine and processor efficiency for user convenience. This process 
is desirable only if the user has made preparations as outlined in (1) and (2) . 
To improve processor efficiency, he can also readjust and enlarge \±.e window by 
the $ FACTOR command. 

(4) Only the first two letters of any UPDATE command word need be given. 
Incorrect spelling of command is tolerated as long as the first two letters are 
spelled correctly. 

Example 1 ; To edit the text taken from the School of Engineering 
Bulletin, University of Pittsburgh. The draft of text on disk file TEXT.EDT 
along with the revisions on the draft appears as follows: 

THE MICHAREL L. BENEDUM HALL OF ENGINEERING 

STDUENTS ENROLED IN THE SCHOOOL OF ENGINEERING, UNIVER TY OF 
PITTSBUROI, RECEIVE THEIR EDUCATION IN ONE CF THE COUOTRY'S MOST 
MCOERNAND BEST EQUIPPED ENGINEERING BUILDINGS, THE MICHARL L. BENNEDUM 
HALL OF ENGINEERING. THE BUILDING CCMPLEXX IS NAMED IN HONOR OF 
MICHAEL L. ENEIXJM, A PIONEER IN THE OIL INWJSTRY AND CO-FOUNDER OF 
MICHAEL L. ENEDUM, A PIOJEER IN THE OIL INDUSTRY AND CO-FOUNDER OF 
THE BENEDUM TREE OIL CCMPNAY. A GRANT FROM THE CLAUDE WORTHINGTON 
FCUNDATION ENABLED THE UNIVERSITY TO PURCHASE ON WHICH THE ENGINEERS 
COMPLEX IS BUILT. 

The following is a printout of the editing session: 
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.UPDATE TEXT. EDIT 

THE MICHAREL L. BENEDUM HALL OF ENGINEERING 

>$CH/T/ T/R// 

THE MICHAEL L. BENEDUM HALL OF ENGINEERING 
>$AT+2; CH/L/LL/000/OO/R TY/RSITY/ 

STUDENTS ENROLLED IN THE SCHOOL OF ENGINEERING, UNIVERSITY OF 
>$AT+2; CH/AND/ AND/ARL/AEL/NN/N/ 

MODERN AND BEST EQUIPPED ENGINEERING BUILDINGS, THE MICHAEL L. BENEDUM 
>$AT+ljCH/X// 

HALL OF ENGINEERING. THE BUILDING COMPLEX IS NAMED IN HONOR OF 
>$AT-fl; CH/EN/BEN/ 

MICHAEL L. BENEDUM, A PIONEER IN THE OIL INDUSTRY AND CO-FOUNDER OF 
■>UT+1; DELETE 

THE BENEDUM TREES OIL COMPANY. A GRANT FROM THE CLAUDE WORTHINGTON 
>$AT+1;CH/CHASE/CHASE THE LAND/ENGINEERS// 

FOUNDATION ENABLED THE UNIVERSITY TO PURCHASE THE lAND ON WHICH THE 
>$AT+1; PLACE/ENGINEERING /I 
ENGINEERING COMPLEX IS BUILT. 

>$Em 

> 

1 Blocks written on TEXT. EDI [33,33] 

EXIT 



The edited file is shown below: 

THE MICHAEL L. BENEDUM HALL OF ENGINEERING 

STUDENTS ENROLLED IN THE SCHOOL OF ENGINEERING, UNIVERSITY OF 
PITTSBURGH, RECEIVE THEIR EDUCATION IN ONE OF THE COUNTRY'S MOST 
MODERN AND BEST ECXJIPPED ENGINEERING BUILDING, THE MICHAEL L. BENEDUM 
HALL OF ENGINEERING. THE BULDING COMPLEX IS NAMED IN HONOR OF 
MICHAEL L. BENEDUM, A PIONEER IN THE OIL INDUSTRY AND CO-FOUNDER OF 
THE BENEDUM TREES OIL COMPANY. A GRANT FROM THE CLAUDE WORTHINGTON 
FOUNDATION ENABLED THE UNIVERSITY TO PURCHASE THE LAND ON WHICH THE 
ENGINEERING COMPLEX IS BUILT. 



Example ; To edit a stored FORTRAN program. It is suggested that the 
readers follow the running canments marked on the printout. 



.UPDATE SMfPLE.FOR 

[CREATE NEW FILE] 

>C SAliPLE PROBLEM FOR THE TIME-SHARING NOTES 

> READ(5,10)A,B,C,D,X1 

> 10 FORMAT (F20. 7) 

> I X2=X1-(A*X1**3+B*X1*''2+C*X1+D)/(3,*A''X1''''2+2.':X1+D) 

> imiTE(6,10)X2 

> IF(ABS((X1-X2)/X2-.001)3,3,2 

> 2 X1=X2 

> GO TO 10 

> 3 WRITE(6,11)X2 

> 11 FORmiO' THE REAL ROOT = ',F20.7) 

> STOP 

> END 

12 
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y$ATl; TYPE 12 

C SAMPLE PRCBLEM FOR THE TIME-SHARING NOTES 

READ(5,10)A,B,C,D,X1 

10 FORMAT (F20. 7) 

1 X2=X1-(A*X1**3+B*X1**2-K:*X1+D) (3,*A*X1**2+2.*X1+D) 
WRITE(6,10)X2 

IF(ABS((X1-x2)/X2-. 001) 3,3,2 

2 X1=SX 
GO TO 10 

3 WRITE (6, 11) X2 

11 FORMAT {/' THE REAL ROOT = ',F20.7) 

STOP 

END 
y$T04 

1 X2=X1-(A*X1**3+B*X1**2+C*X1+D) (3,*A*X1**2+2.*X1+D) 

> $CHANGE $D) (3, $D)/3. $2. $2. *B$D^C$ 

1 X2=X1-(A*X1**3+B*X1**2-K:*X1+D)/(3.*A*X1**2+2.*B*X1-h:) 

>$AT+lj CH/W/ W/ 

WRITE (6, 10) X2 
>$AT+1; CE/X2-/X2)-/ 

IF(ABS( (XI -X2)/X2-. 001) 3,3,2 
>$AT+1; CH/SX/X2/ 

2 X1=X2 
>UT+1; CH/0// 

GO TO 1 

> $END 

1 Blocks written on SAMPLE. FOR[33, 33] 

EXIT 

. TYPE SAMPLE. FOE 

C SAMPLE PRCBLEM FOR THE TIME-SHARING NOTES 
READ(5,10)A,B,C,D,X1 

10 FORMAT (F20. 7) 

1 X2=X1- (A*X1** 3+B*Xl**2+C*Xl+D) / ( 3 . *A*Xl**2+2 . *B*X1+C) 
WRITE(6,10)X2 
IF(ABS((X1-X2)/X2-.001)3,3,2 

2 X1=X2 
GO TO 1 

3 WRITE(6,11)X2 

11 FORMAT(/" THE REAL ROOT = ',F20.7) 
STOP 

END 
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EXERCISES 



1. (a) Enter the following FORTRAN program in your disk by using UPDATE and 
name the file as PRDBl.FOR: 

C PROBLEM NO, 1 

DIMENSION K(10) 

DO 5 1=1,10 
5 K (I) =1**2 

WRITE (6, 10) ((I, K{I)) ,1=1,10) 
10 FORMAT (217) 

STOP 

END 

Purposely make some errors in your typing. For example, omit some commas 
and misspell a few words. 

(b) When you are back at the monitor level, execute the incorrect program by 
a command: 

.EXECUTE PROBl.FOR 

and observe the proceedings. 

(c) Make appropriate corrections, and execute again. Repeat until you get 
the program letter perfect. 



2. What would each of the following UPDATE fragments do? 



(a) $AT 1 


(b) $AT 1 


(C) $AT 1 


$SUB/XX/YY/ 


$TR/XX/ 


$TR/XX/ 




$ch/xxAy/ 


$ch/xxAy/ 




$AT -1 


$G0 




$G0 





(d) $SUB/READ(5,/READ(1,/ 

(e) $TR+1;IF/READ/7;THEN/TYPE{LI)/;G0 

(f) $ONTO= READ. FOR 

$TR+1; IF/READ/7; THEN/POT/; QO 
$CLDSE 



3. Three different ccmpounded MOVE commands are given: 
$MOVE; HERE 
$MOVE; AT-1; HERE 
$MOVE; AT$; HERE 
For each of these three commands, answer the following questions: 
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(a) Where is the line moved to? 

(b) Where will be the pointer after the move? 



4. Verify your answers to problem 3 by actually setting up a file, observing 
the BEFORE and AFTER of each of the above three commands. 

5. Enter Lincoln's Gettisburg Address as a file and name it as ABE. DOC. 
Correct any error in the file. 

6. For each line of ABE. DOC prepared in problem 5, edit the text so that the 
following results are obtained: 

a. Set the left margin at column 1; the right margin at column 45. 

b. The first line of a new paragraph is indented 5 spaces. 

c. Right justify by adding spaces between words. 

d. Space all punctuations so that there is one space after each conma or 
semicolon, and 3 spaces after each period. 

7. After copying the file SYS:NEWS (see Exercise (3), Chapter 1) into your own 
disk area, use UPDATE and with one ccxnpounded instruction, search and type 
out all first lines of news items that were dated in 1980. 

8. The instructor will furnish for this exercise a long FORTRAN program that 
contains many FORMAT, READ, WRITE and CALL statements. Prepare four 
auxiliary files that will contain the following information: 

(a) File FORMAT. FOR: a record of all FORMAT statements 

(b) File READ. FOR: a record of all READ statements 

(c) File WRITE. FOR: a record of all WRITE statements 

(d) File SUBR.FOR: a record of all subroutine CALL statements 

For a simple case, make the following assumptions: 

(1) All characters are upper cases. 

(2) All statement keywords oegin on column 7. 

(3) No continuation statement. 

9. For a more challeging case of problem 8, make the following assumptions and 
then prepare the required auxiliary files: 

(1) Mixed upper and lower cases in the FORTRAN program file. 

(2) A statement may begin anywhere between column-7 and column-72. 

(3) Some of the READ, WRITE or CALL statements may be imbedded in an 
IF statement, e.g., IF(I.EQ.1)READ(5,56)X 

(4) There may be continuation statements. 

You may modify this problem and generate a problem a varying degree of 
difficulty by selecting one or more of these assumptions. 
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10. The source program in FORTEyusi-lO on DEC System-10 allows a special use of 
the tab key (or the CTRL-I character) to skip all or part of the label 
field. The purpose is to use a tab-character (1 character) to replace 
multiple spaces (multiple characters) "to save storage space. Rules of 
interpreting a FORTRAN-10 statement using a tab in the initial field are as 
follows: 

(1) If the tab is immediately followed by one of the digits 1 through 9, 
that line is a continuation line of the previous one. The non-zero 
numeric character following the tab is considered in column-6. 

(2) Otherwise, the line is an initial line of a FORTRAN statement, and the 
character following a tab is considered to be in column-7. 

For example, both of the following versions of a source program are 
acceptable by DEC System-10: 

Version 1 Version 2 



C SAMPLE PROBLEM C SAMPLE PROBLEM 

bbbbbbDO 10 1=1,20 (T)DO 10 1=1,20 

bbbbbbK=I**3 (T)K=I**3 

bbblO TYPE 20, I, 10 (T) TYPE 20, I, 

bbbbblK (T) IK 

bbb20 FORMAT (2112) 20 (T) FORMAT (2112) 

bbbbbbEND (T) END 

b=blank space (T)=tab 

For a FORTRAN-10 program entered by using the tab-key storage-saving 
technique, repeat problems 8 and 9, 

11. For each of the following functions, write a single-line compounded UPDATE 
command to accomplish it: 

(1) To type out only those lines in a FORTRAN program that have lengths 
longer than 72 columns. The printout should contain absolute line 
numbers, line lengths, and the line itself. Do not print out all lines. 

(2) To insert the word EXERCISE in columns 73-80 of every line in a FORTRAN 
program. 

(3) to print out all subroutine call statements in a FORTRAN program. 

(4) To print out all FORMAT statements. 

(5) To print out all CCMMENT statements. 
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CHAPTER 3 
FORTRAN-10 



FORTRAN is the most widely studied and used 
progranoming language in the United States. Therefore, 
this chapter is prepared with the assumption that the 
readers already have some background knowledge of the 
language. For those who are not familiar with the 
language, please consult any one of many FORTRAN 
manuals available. Two typical ones are: 

PROGRAMMING WITH FORTRAN, Byron S. Gottfried, Quantum 
Publishers, New York, 1972 

PRCBLEM SOLVING AND STRUCTURED PROGRAMMING IN FORTRAN, 
F. L. Friedman & E. B. Koffman, Addison-Wesley 
Publishing, Reading, Massachusetts; 1977 

INTRODUCTION 

There are not just a few versions of FORTRAN; there are dozens. Even on 
the DEC System-10 alone, there are several versions available. In attempting to 
unify all versions of FORTRAN developed in the computer industry, the American 
National Standards Institute (ANSI) in 1966 set up a standard for FORTRAN, now 
known as the "1966 ANSI Standard."* However, vAiat has happened since is that the 
computer industry has used the Standard only as a minimum standard, and every 
company has extended far beyond that minimum for their own versions of the 
FORTRAN language. Unfortunately, while the ANSI standard part is uniform, the 
enhanced parts among different versions are not. Programs written in one 
enhanced version may require some modifications if run on a machine using a 
different conpiler. The version of FORTRAN covered in this chapter, called 
FORTRAN-10 by the Digital Equipment Corporation, is a powerful superset of the 
ANSI standard version. A summary of FORTRAN-10 will be included in this 
chapter. However, readers are encouraged to seek more details from References 3 
and 4. 



*USA Standard FORTRAN (x3. 9-1966) , American National Standards Institute, 1966 
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RULING A FORTRAN PROGRAM ON DEC SYSTEM-10 



After a FORTRAN program is written and thoroiqhly checked for its logic, 
running the program will require two major steps: 

(1) To enter and store the FORTRAN program as a disk file. 

(2) To compile, load, and execute the stored program. 

The following discussion will be devoted to these two steps. 

3.1 To Enter and Store a FORTRAN Program 

In the EEC System-10 , the source program in FORTRAN, ALC»L, CCBOL or 
MACRO should first be stored as a disk file because the most ccaranon way of 
execution is for the System to search in the disk for a specified program. 

There are a number of utility programs available by vrt^ich a user can 
enter and store his FORTRAN program. By far the best way is to use the UPDATE 
editor, which enables a user full editing facilities vAiile entering a program. 
The details of UPDATE are given in Chapter 2. In this chapter, only the 
procedure relating to the entering of a FORTRAN program will be dcationstrated. 

As an illustration, let us consider two programs: one containing just 
the main program, and the other a main program plus a subroutine. The program 
listings are as follows: 

Program 1 Program 2 

C SAMPLE PROGRAM 1 C SAMPLE PROGRAM 2, WITH SUBROUTINE 

DO 10 1=1,10 ACCEPT 10, M,N 

K=I**3 10 FORMAT (13) 

10 TYPE 20, I,K CALL CUBE(M,N) 

20 FORMAT (2110) END 

C SUBROUTINE FOR SAMPLE PROGRAM 2 
SUBROUTINE CUBE(M,N) 
DO 10 I=M,N 
K=I**3 
10 TYPE 20, I,K 
20 FORMAT (2110) 
RETURN 
END 

(1) To enter program by the UPDATE editor 

The UPDATE editor was originally developed for the Pitt Time-Sharing 
system (PTSS) using an IM/360 Model 50 computer, and has since been adapted for 
use on the EEC System-10. It enables a user not only to enter and store a 
program, but also to correct errors and to edit. The following shows a typical 
session with the UPDATE editor. The user's typings are shown in italics. 
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At a User's Terminal 



.R UPDATE 



Conments 



INPOT=> ^ 

>C SAIJPLE FROGRMi 1 

> DO 10 1=1,20 

> K=I**Z 

> 10 TYPE 20, I,K 

> 20 F0RmT(2I12) 

> END 
>$DONE 

CATALOG nmE=>PRGl.FOR 

6 BLOCKS WRITTEN ON PRG1.FOR[115103, 320571] 



Call for the editor 
) = RETURN key of terminal 



> = prompt from the computer 
Enter FORTRAN program 



In a similar way, Program 2 may be entered and stored. Let us assume 
that the main program of Program 2 is stored and named as PRG2.F0R and its 
subroutine as CUBE. FOR. 

If a program requires several subroutines, each subroutine may be entered 
and stored separately as a single file bearing a different name, or they may be 
combined into one file with one filename. At this point of the illustration, 
three files have been stored and they are PRGl.FOR, PRG2.F0R and CUBE. FOR. A 
listing of the programs can be made by using a monitor ccMnmand: 

.TYPE PRGl.FOR^ PRG2.F0R, CUBE. FOR 

The listings produced may be used as records or for proof-reading. 

If the listing shows that the programs have been correctly entered, the 
programs are ready for canpiling, loading and execution. 

(2) To enter program via punch cards 

The way to enter and store a program deck is to submit it by a batch job. 
Details of batch jobs are given in Chapter 9. Repeating the example above, the 
control file deck is first assembled as follows: 



$JCB [115103,320571] 
$PASSWORD DEBBIE 
$DECK PRGl.FOR 

Program 1 deck 
$DECK PRG2.F0R 

Main program deck 

Program 2 
$DECK CUBE. FOR 

Subroutine deck 
$EOD 
$EOJ 



$JCB [115103,320571] 
$PASSWORD STEVE 
.UPDATE PRGl.FOR 

Program 1 deck 
$$END 
.UPDATE PRG2.F0R 

Main program deck 

Program 2 
$$END 
.UPDATE CUBE. FOR 

Subroutine deck 
$$END 
$EOJ 



There is often a need to enter and store a FORTRAN program via a punch 
card deck. For example, a card deck may have already been prepared. Perhaps 
the terminals are not available. Although there are more terminals than key 
punches, the latter are often less in demand and hence more available. After 
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the deck is assembled as shown in either makeup, the assembled deck is read by a 
system card reader, and the batch job is submitted. After the job is executed, 
there should be files PRGl.FOR, PRG2.F0R and CUBE, FOR in this user's disk area. 



3.2 To Edit a Stored FORTRAN Program 

If any typographical error, missing lines, or duplications aire found in 
the listings of stored programs, the UPDATE editor may be used to make 
corrections. Suppose the PRG2.F0R listing is produced as follows and errors 
were found and marked as shown below: 



C SAMTjOy PROGRAM 2, WITH SUBROUTINE 
;,_^CCEPT 10, M,N 
i5F5RMAT(I3) 



ie syi"' 



CALL CUBE 



(M,n) 



To make corrections, the UPDATE editor may be used either on a terminal 
or in a batch job: 

(1) Using UPDATE at a terminal 

The following represents a terminal session of error correction: 

,UPDATE PRG2.F0R 

C SAMPEL PROGRAM 2, WITH SUBROUTINE 

> $CnANGE/PEL/PLE/ 

C SAMPLE PROGRAM 2, WITH SUBROUTINE 

■>$AT+2j CHANGE/FOR/ FOR/ 

10 FORMAT (13) 

y^AT+lj CHANGE/HJI/MJI)/ 

CALL CUBE(M,N) 

> END 

>^END 



After the editing session, the listing should again be typed out for a 
final verification. 

(2) Using UPDATE in a batch job 

Assemble a batch job deck as follows. Notice that the order of the cards 
and their contents are identical to those input lines in the terminal session, 
with the exception that an UPDATE $-command should be punched as a $$-card. 

$JOB [115103,320571] 
$PASSWORD DEBBIE 
.UPDATE PRG2.F0R - 
$$CHANGE/PEL/PLE/ 
$$AT+2; CHANGE/FOR/ FOR/ 
$$AT+1; CHANGE/M,N/M,N)/ 

WD 
$$END 
$EOJ 
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There is, of course, a third way: Noting the errors on PRG2.F0R, repunch 
the incorrect cards. Insert any missing card. Resutanit the corrected deck as a 
new batch job. In the batch deck, include a command first to delete the old 
PRG2.F0R before storing the new PRG2. 



3.3 To Compile, Load and Execute a Stored FORTRAN Program 

The sequence of executing a PORTRAN-10 program is as follows: 

(1) To compile the specified source programs and store the binary object 
or relocatable files (with extensions of REL) in the disk. 

(2) To load the REL files of the main program and all subprograms or 
subfunction programs called by the program into the core memory. 

(3) To begin the execution of the loaded object program froti an address 
determined by the compiler and the loader. 

All these steps can be accomplished in sequence by a single monitor 
command : 

^EXECUTE list 

where "list" is a list of all FORTRAN programs (or their REL files if available) 
including any other subprogram files needed for execution in one problem. If a 
program belongs to another user but is accessible, the PEN of the owner should 
be specified along with the filename. If the file is on tape vrtiich is already 
mounted, then the device name should also be specified. Thus, to execute 
Programs 1 and 2 respectively, issue the following commands: 

.EXECUTE PRGl.FOR 

.EXECUTE PRG2.F0R, CUBE. FOR 

When an EXECUTE command is issued, the computer will go through a 
sequence of ccmpiling, loading and execution. The sequence of operations to 
carry out the command EXECOTE PRG2.F0R, CUBE. FOR is represented by the flow 
chart shown in Figure 3.1. Note particularly the processing logic by which any 
unnecessary compiling is avoided. 

When a source FORTRAN program is conpiled for the first time, a REL file 
is created and stored. In the user's file directory, pertinent information are 
also stored, such as the creation time accurate to the minute. When the program 
is executed again and if the program has not been modified in any way, the REL 
file is still valid, and ccsnpiling again would be superfluous. On the other 
hand, if the program has been modified since the last compiling, then the 
existing REL file is not valid, and compiling again during the next execution is 
necessary. The processing logic does it by comparing the creation time between 
the source porgram and its REL file. If the creation time of the source is 
earlier, then the REL file is still valid. If the creation time of the source 
is later, then the REL is not valid, and ccanpiling should be done again. After 
a new REL file is created by the re-compiling, its creation time is updated 
also. This logic is handled by the System and the user is spared the decision. 
Execution of Program 1 and Program 2 are given below as illustration: 
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FORTRRN-10 



bearch in disk for 
the f I les 



PRG2.F0R 
CUBE. FOR 



Are al I f i les I Isted 
present and available 
( In case belogning 
to another PPN)? 




yes 



Are the 
f o I I ow I ng f i 
aval I able: 
PRG2.REL 
CUBE.REL 



yes 



Are creation time of 
files PRG2.REL, CUBE.REL 
newer than PRG2.F0R & 



CUBE. FOR creation time 
respect ively? 



yes 



Compile programs and store the 
REL files as new or updated 
PRG2.REL or CUBE.REL. 



Any compiling error? 



yes_ 




Load PRG2.REL & CUBE.REL and 
any subprograms cal led by them 
from the System Into user°s core, 



Are a I I subprograms 
aval I able? 



yes 




Start execution of PRG2.REL 
and CUBE.REL 



Any execution error? — YSS._ 





Figure 3.1 Sequence of Operations for "EXECUTE PRG2. FOR, CUBE. FOR" 
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FORTRAN 5A(621) : PRGl.FOR 
MAIN. OCTAL PROG SIZE=43 
LINK: Loading 
[IWKXCT PRGl execution] 



1 


1 


2 


8 


3 


27 


4 


64 


5 


125 


6 


216 


7 


343 


8 


512 


9 


729 


10 


1000 



FORTRAN 5A(621) : 


PRG2.F0R 


MAIN. OCTAL PROG SIZE=35 


FORTRAN 5A(621) : 


CUBE. FOR 


CUBE OCTAL PROG SIZE=52 


LINK: Loading 




[OSIKXCT execution] 
> 


> 

1 


1 


2 


8 


3 


27 


4 


64 


5 


125 


6 


216 


7 


343 



End of execution FOROTS 5B(1001) 
CPU time: 0.08 Elapsed time: 1.05 
EXIT 



End of execution FORDTS 58(1001) 
CPU time: 0.05 Elapsed time: 7.50 
EXIT 



The three stages of ccsnpiling, loading and execution of a FORTRAN-10 
program are carried out by a single EXECUTE command. These steps can also be 
carried out one at a time. 

The monitor command COtlPILE list will compile the FORTRAN files in the 
list and store the generated REL files, giving them the same filename but with 
an extension of REL. 



The monitor command LOAD list will compile the 
generated REL files, and also load them into the core. 



programs, store the 



The execution of the stored FORTRAN programs can also be accomplished by 
submitting the EXECUTE commands in cards. The following are two card assemblies 
for the batch jobs of executing Program 1 and Program 2: 



$JOB [115103,320571] 
$PASSWORD DEBBIE 
.EXECUTE PRGl.FOR 
$EOJ 



$JOB [115103, 320571] 

$PASSWORD DEBBIE 

.EXECUTE PRG2. FOR, CUBE, FOR 

1 

7 
$EOJ 



Once the compiling is done on a FORTRAN program, its object program is 
stored on the disk, and subsequent execution of the same program will bypass the 
compiling stage. In this manner, unnecessary compiling may be avoided. 
However, if the FORTRAN program belongs to another PEN, a user should not only 
ascertain if the FORTRAN program is protected against his access, but he should 
also determine v^ether he can gain access to a compiled REL file. If a REl file 
is already available and accessible, the ccsnmand EXECUTE will directly access 
the REL files. In many cases, the source programs are proprietary, but the REL 
files are available for public access. 

If a program will be used many times, a more efficient way of loading can 
be done in this way. After the program in the "list" of the "Ii3AD" ccxnmand are 
loaded , the core content of the user ' s area in the core memory may be saved as a 
file with an EXE extension. T^e monitor commands to save a core image are LOAD 
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and SAVE as shown below: 

.IDAD list 
.SAVE NAME 

and the saved file will have a name of NAME. EXE. Once that is done, subsequent 
execution of the program may be done by a command of : 

.RUN NAME 

where "NAME" is the the name of the specified EXE file. 

This procedure is particularly advantageous if (1) a program will be used 
repeatedly, or (2) the list of programs in the EXECUTE command contains many 
files and many file specifications. Some of the files may reside on slow and 
busy peripherals such as the EECtape. 



3.4 Optional Switches 

The monitor ccatimand EXECOTE requires the use of three service programs: 
the monitor , the FORTRAN compiler , and the loader , In eac;h of the three 
processors, options are implenented to allow a user to select some variation of 
services. These options are called switches . Switches are available on all 
three service processors, and they are separately discussed next. 

(1) Monitor switches The details of the switches for the command 
COMPILE, IDAD and EXECUTE will be given in Chapter 8, so only the most 
frequently used switches are listed below. The monitor switch has a form of a 
slash followed immediately by a word vrfnich can be abbreviated. These switches 
and their functions are listed in Table 3.1. 

(2) Compiler switches While the monitor program is somewhat uniform 
among the EEC System-10 users, the compilers — particularly the FORTRAN 
compiler — may have many versions, and some with local modifications. Selected 
switches v^ich appear on the same ccanmand line as those of the canpiler switches 
are words enclosed in parentheses. These switches are listed in Table 3,2. 

(3) Loader switch The format of a loader switch is a percent 
sign (%) followed by one or two characters. Three such switches are listed in 
Table 3.3. 

Example ; .EXECUTE SAMPLE. FOB/LTST 

Function ; Ccsnpile SAMPLE. FOR, store SAMPLE. REL on disk, load it into 

the core, and execute. Also, generate a source listing 

file SAMPLE, LST. 

Example : ^EXECUTE SAtiPLE.FOR/CREF (I) %0M 

Function : Ccmpile (including all I>-statements) , load, and execute. 

Generate a cross reference file for later CFEF program, and 

produce a loader map at the terminal. 
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Monitor Switch 


Function 


/COMPILE 
/CREF 


To force a compiling even If there already exists a REL 
file. The purpose of this switch is to force the use of 
compiler because certain compiler switches are also 
chosen in the EXECUTE command. Otherwise, the compiler 
is bypassed if there already exists a valid REL file 
bearing the same filename. 


To produce a cross-reference listing file on the disk 
for each file compiled for later processing by the CREF 
program. The cross-references include such Information 
as variable names, statement labels, and their cross 
references. Before the user signs off, he may get a 
printout copy of the cross-reference by another monitor 
command: CREF. If the CRF file generated during a 
previous session at the terminal still is stored on 
disk, a list may be obtained by running the CREF program 
in the following ways: 

.R CREF .R CREF 
*LPT:=NAME.CRF *TTY:=NAME.CTF 

This will produce a copy of listing on the line printer 
(the left version) or on the terminal (the version on 
the right). 


/L 1 ST 

/LIBRARY 
/DEBUF: BOUNDS 


To generate a disk listing file for each file compiled 
with the same filename, but with an extension of LST. 
These f I les can be listed with the PRINT or QUEUE 
command (see Chapter 8). If a REK file already exists, 
this switch will be ignored unless a forced compiling is 
ordered by the /COMPILE switch. 

To select the loading of only those subroutines and 
functions referenced in the programs. Otherwise, the 
entire library file will be loaded. 

To report if subscripts get out of bounds as defined by 
the DIMENSION statement for that array. This Is one of 
the most common errors. 



Table 3.1 Selected Monitor Switches 



Example ; .EXECUTE SAJIPLE.FOR, PRO: IMSL/ LIBRARY 

Function ; Compile the source program SAMPLE. FOR and thus generate 
SAMPLE, REL. Then load it along with those subroutines in 
PRG;IMSL that are called by the program SAMPLE. FOR. The 
LIBRARY switch here is absolutely necessary because the 
package PRG;IMSL contains about 400 subroutines. Execute 
vAien loading is ccsnpleted. 
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Compl ler Switch 


Function 


(INCLUDE) or 
(1) 

(NOERROR) or 
(NOE) 


To compile the program by regarding all statements with 
"D" in column 1 as FORTRAN statements. If this switch 
is not specified, those statements will be regarded as 
comments and bypassed. The frequent uses of this switch 
is to insert the debugging statement as the 
"D-statements," which are usually output statements to 
type out Intermediate results or to type out tracing 
progress, such as a message "Reaching check point 5." 
Once a program is completely debugged, it can be 
compiled again, but this time without the 
INCLUDE-swltch, and all D-statements will be Ignored. 


To suppress error message on user's terminal. The error 
message will only appear on the listing file If It Is 
requested by the /LIST or the /CREF switch. 


(NOWARNINGS) or 
(NOW) 

(OPTIMIZE) or 
(0) 


To suppress warning messages on the terminal. 


To perform global optimization of compiling. 



Table 3-2 Selected FORTRAN Compiler Switches 



Loader Switch 


Function 


%s 


To load local symbols used primarily for debugging 
purpose along with the program. 


%m 


To type out a loader map at the user's terminal and 
Include local symbols. In a batch job, the loader map 
with this switch will be Included In the log file. 


%QW 


To type out a loader map at the user°s terminal. In a 
batch job, this switch will Include the loader map in 
the log file. 



Table 3.3 Selected Loader Switches 



An Example 
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3.5 An Example of FORTRAN Processing 

As an illustration of FORTRAN-10 programming and processing on a 
time-sharing system, an example will be carried through in all steps. The 
problem deals with the solution of an equation Ax +Bx+Cx+D=0 with 
significance to 3 digits. The EXDRTE^VN program for the problem is listed below: 

C SAMPLE PROBLEM FOR FORTRAN-10 

READ(5,10)A,B,C,D,X1 

10 FORMAT (F20. 7) 

1 X2=X1-(A*X1**3+B*X1**2+C*X1+D)/(3.*A*X1**2+2.*B*X1-K:) 
WRITE(6,10)X2 
IF(ABS((X1-X2)/X2)-0.001)3,3,2 

2 X1=X2 
GO TO 1 

3 WRITE (6, 11) X2 

11 FORMAT{/" THE REAL ROOT = ', F20.7) 
STOP 

END 



The rest of this section shows a case history of running this problem, 
from entering the program, through debugging and editing and finally executing 
it. Written running canments were added to aid understanding. All text in 
italics represent the user's own typing; all others are the computer's 
printout. 



.UPDATE NEWTON. FOR . ^ 

[CREATING NEW FILE] 

X7 SAMPLE PROGRAM FOR FORTRAN-10 

> READ(5,10)A,B,C,D,X1 

> 10 FORMAT (SF) 

> 1 X2=X1- (A*X1 *''3+B''Xl**2+C'^Xl+D)/(3. *A*Xl**2\l-2. *B*X1+C) 

> WRITE (6,1 9 )X2 

> IF(ABS((X1-X2)/X2 .001)3,3,2 

> 2 X1=X2 

> GO TO 1 

> 3 WRITE(e,ll)X2 

> 11 FORMtO' the real root = ', F20.7) 

> STOP 

> END 
>$END 
1 blocks written on NEWTON. FOR[115103, 320571] 



^ OPPA re 



.EXECUTE NEWTON. FOR .,-— — M;«^q rr,:^»s. s-.a« 

FORTRAN 5A(621) : NEWTON. FOR ^"""^ 
00006 IF(ABS((X1-X2)/X2 .'OOI- 3,3,2 

7FTNUMP LINE: 00006 UNMATCHED PARENTHESES 

00010 .11 FORMAT(/' THE REAL ROOT = ', F20.7) 

00011 STOP 

TFTNFWE LINE: 00010 FOUND "T" WHEN EXPECTING A END OF STATEMENT 



A\ess«.^e "to neip 



UNDEFINED LABEIS 
19 11 



7FTNFTL MAIN. 

LINK: LOADING 

[DSIKNSA No Start address] 

EXIT 



4 FATAL ERRORS AND NO WARNINGS 
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^UPDATE NEWTON. FOR 

C SAMPLE PROGRAM FOR FORTRAN-lO 

>gTO 6 

IF(ABS(ABS((X1-X2)/X2.001)3,3,2 
>$CHANGE/ .001/)-. 001/ 

IF(ABS((X1-X2)/X2)-.001)3,3,2 
y$TO/STOP/ 

STOP 
y$CHANGE/STOP/ STOP/ 

STOP 
y$END J 

1 blocks written on NEWTON. fOR[115103, 320571] 



M«.U cUAfl^e* ty Ops>Are 



EXIT 

.EXECUTE NEHTON. FOR 
FORTRAN 5A(621): NEWTON. FOR 

UNDEFINED LABEiS 

19 11 



brrcK ^\l 2<.i^^s 



7FTNFTL MAIN. 
LINK: loading 
[LNKNSA No start address] 

EXIT 



4 FATAL ERRORS AND NO WARNINGS 



.UPDATE NEWTON. FOR 

C SAMPLE PROGRAM FOR FORTRAN-10 

>$TRAVEL/19/ <- -- - - - 

WRITE(6,19)X2 
>$CHAHGE/19/10/ 

WRITE(6,10)X2 

>$G0 ■*- - - -- - - - - - ~- 

?>$END I. ^ // .. ' ^ r- X more " 

1 blocks written on NEWTON.FOR[115103, 320571] • ''^'^'■1^ Cant +'M -s*'^/ '^ 

EXIT 






.EXECUTE NEWTON. FOR ■*- " 

FORTRAN 5A(621) : NEWTON. FOR 
MAIN. OCTAL PROG SIZE=145 
LINK: Loading 
[LNKXCT NEWTON execution] 
1,0 -16.0 65.0 -50.0 16.0 

12.9158000 

11.1082200 

10.2498400 

10.1173400 

10.0000900 

10.0000000 



THE REAL ROOT = 
STOP 



10.0000000 



End of execution FOROTS 5B(1001) 
CPU time: 0.09 Elapsed time: 23.98 
EXIT 



a'(e<u(h, aaa:^ 



I Co f^pi le. Ccnc^ j o<x<A Succs.ss~p^lly 



lyJifh init/'a.! -trial l/t^fue. ^^= '^ 



(\^s 



%= /O 
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A SUMMARY OF FORTRAN-IO 



This part of the chapter is devoted to a summary of the FORTRAN-10 
language, which is an enhancement of the ANSI standard FORTRAN. The enhancement 
may be a new FORTRAN statement, such as the IMPLICIT-statement; or it may be 
some additional features in a standard FORTRAN statement, such as those in the 
DIMENSION-statement. These enhancements will be identified in the summary by a 
heavy vertical line on the left side of the page, for example: 

(5) A debug line A debug line has a character "D" or "d" etc etc etc 

The identification of the enhancement will be useful in the conversion of 
a FORTRAN-10 program to other versions of FORTRAN, or vice versa. 



3,6 A Summary of Constants, Variables and Expressions 



(1) Constants 



There are nine types of constants in FORTRAN-10: 



integer constants, real constants, double precision constants, complex 
constants, logical constants, literal constants, octal constants, double octal 
constants, and statement label constants, as summarized in Table 3,4: 



Constant 


General Form 


Remarl^s and Examples 


Integer constant 


no decimal point 
always with a decimal 

exponent symbol Is D 

signed or unsigned octal 
preceded by a "" 

same as single precision 
octal 

(x,y) 

.TRUE. .FALSE. 
"-1 "0 

'QUOTE' nHxxxxx 

1 to 5 decimal digits 
preceded by "$" or "&" 


ranging from -2^^+1 to 2^^- 

7 to 9-digit precision 
in mantissa 

3 . 0002=300 . 0000000000000 
(16-digit precision) 


1 


Real constant 

Double precision 
constant 

Octal constant 

Double octal 
constant 

Complex constant 

Logical constant 

Literal constant 
Statement label 


"567, "-567 
"1234567000123456700 


- 


(3.1,-4.7) for 3.1-J4.7 


'TIME' 4HTIME 


- 


$1234 &999 





Table 3.4 A Summary of FORTRAN-10 Constants 
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(2) Variables 



Variables are specified by names and types. 



The 



name of a variable consists of one to six alphanumeric characters, the first of 
which must be alphabetic. The type of a variable may be specified explicitly by 
a type declaration statement or implicitly by the IMPLICIT statement. If the 
variable is not specified in this manner, then a first letter of I, J, K, L, M 
or N indicates an integer variable; any other first letter indicates a real 
variable. 



Variable arrays carry subscripts that are integer constants, variables or 
expressions. In addition, the following are permitted in FORTRAN-lO: 

A. A subscript may contain a non-integer arithmetic expression. 
However, when such a subscript is evaluated, it is truncated and 
converted to an integer after its evaluation. 

B. A subscript may contain a function reference such as A(10*SIN(X)) . 

C. Subscripted variables may be used as subscripts or nested subscripts 
of subscripted variables, 

(3) Expressions Compounded numeric expressions must be 

constructed according to the following rule. With respect to the numeric 
operators of +, -, *, /, any type of quantity (integer, real, doutde precision, 
complex, logical, literal, octal or statement label) may be opesrated with any 
other, with one exception: A complex quantity may not be operatecl with a double 
precision quantity. The result of these mixed mode operations are tabulated in 
Table 3.5. (Mixed mode operations are not allowed in ANSI FORTRAM.) 



Operation 


Type of Argument 2 


+, -. *. / 


Integer 


Real 


Double 
Precision 


Comp 1 ex 


Others 


4- 
C 
Q) 

E 

k 

o 

o 
a. 
>- 


Integer 


Integer 


Real 

Real 

Double 
Precision 

Complex 


Double 
Precision 

Double 
Precision 

Double 
Precision 

Not 
Al lowed 


comp 1 ex 
Comp 1 ex 


Integer 
Real 


Real 

Double 
Precision 


Real 

Double 
Precision 

Complex 
Integer 


Not 
Al lowed 

Comp 1 ex 


Double 
Precision 

Comp 1 ex 


Comp 1 ex 


All 
Others 


Real 


Double 
Precision 


Comp 1 ex 


Octal 



Table 3.5 Results of Mixed Mode Operations 



For example, if X is real in an expression (3.1,-4.1) *X, the expression will 
complex after evaluation. 



be 
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The logical operators and relational operators are listed in Table 3.6 
and Table 3.7 respectively. 



Log 


ca 1 Operators 


Meaning 


Example 




• NOT. 


Negation 


.NOT.P 




• AND. 


n 


P.AND.Q 




.OR. 


U 


P. OR. Q 




.XOR. 


® 


P.XOR.Q 




.EQV. 


® 


P.EQV.Q 



Relational Operators 


Meaning 


.GT. 


> 


' .GE. 


> 


.LT 


< 


.LE. 


< 


.EQ. 




.NE. 


*^ 



Table 3.6 Logical Operators 



Table 3.7 Relational Operators 



A summary of FORTRAN-lO library functions is shown on Table 3.8. 



3.7 FORTRAN-10 Statements 

The field format of a PORTRAN-IO statement follows the general rules of 
FORTRAN-IV statement. There are certain differences associated with a 
FORTRAN-10 line. In FORTRAN-10, t;here are following different types of 
statement lines: 



(1) An initial line 



If 



FORTRAN-10 



statement 



has 



continuation lines, the first line of the group is called an initial line. 



(2) A continuation line 
character 



A continuation line is identified by any 

blank or zero) placed in column 6. A maximum of 20 
FORTRAN-10 Statement including the initial line. 



{except for . 
lines are permitted in a 
Continuation lines may not be interrupted by ccsnment lines. 



(3) A mul ti-statem ent line 
successive 



A multi-statement line combines several 



statements in a single statement, each component separated frcm the 
other by a semicolon (;). If the multi-statement carries a statement number, it 
is always associated with the first conponent. For example, two separate 
statements : 



A = B*C 
X = Y+Z 

can be combined into a single line as: A = B*C; X = Y+Z 

(4) A Comment line A comment line has one of the characters 

(C, $,/,*,!) placed in column 1. Coirraents may also be added to any statement in 
the field of columns 7-72, provided that a character (!) precedes the text. For 
example : 

A = B*C ; X = Y+Z ISTEP NO. 1 



(5) A debug line A 6ebviq line has a character "D" or "d" 

in column 1. When the program is compiled, it is ignored unless there is an 

"(INCLUDE)" switch in the ccxnmand. This is used for debugging purposes, such as 
an output line for tracing. 
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Function 


Form 


Def Inltlon 


Type of 1 


Argument 


Result 


Absolute values: 










Real 


ABS 




Real 


Real 


Integer 


lABS 


|arg| 


Integer 


Integer 


Double 
Complex to real 


DABS 
CABS 




Double 
Comp 1 ex 


Double 
Real 


c = ^ x^+ y 


Conversion: 










Integer/real 


FLOAT 


Float (Arg) ^ 
Integer (arg; 


Integer 


Real 


Real /Integer 


IFIX 


Real 


Integer 


Real (cmplx) 


REAL 


REAL part (cmplx arg) 


Complex 


Real 


Imag(cmplx) 


AIMAG 


IMAG part(cmplx arg) 


Complex 


Real 


Real /Cmplx 


CMPLX 


c=Argl + j Arg2 


2 Reals 


Comp 1 ex 


Cmpx conjugate 


CONJG 


c=con jug ate (cmplx arg) 


Complex 


Comp 1 ex 


Truncat ion : 










Real /real 


A INT 


Real truncation 


Real 


Real 


Real /Integer 


INT 


Integer truncation 


Real 


Integer 


Remaindering: 










Real 


AMOD 


Rema 1 nder { arg I /arg2 ) 


2 Reals 


Real 


Integer 


MOD 


Rema 1 n der ( ar g I /arg2 ) 


2 Integers 


Integer 


Square root: 










Real 


SQRT 




Real 


Real 


Double 


DS(5RT 


Jarg 


Double 


Double 


Complex 


CSQRT 




Comp 1 ex 


Comp 1 ex 


Logarithm: 










Real 


ALOG 


Ln (arg) 


Real 


Real 




ALOG10 


Log (arg) 


Real 


Real 


Double 


DLOG 


Ln (arg) 


Double 


Double 




DLOGl 


Log (arg) 


Double 


Double 


Complex 


CLOG 


Ln (arg) 


Comp lex 


Comp 1 ex 


Sine: 








Real (radians) 


SIN 




Real 


Real 


Real (degrees) 


SIND 




Real 


Real 


Double (radians) 


DSIN 


sin (arg) 


Double 


Double 


Comp 1 ex 


CSIN 




Complex 


Complex 


Cos 1 ne : 










Real (radians) 


COS 




Real 


Real 


Real (degrees) 


COSD 




Real 


Real 


Double (radians) 


OCOS 


cos (arg) 


Double 


Double 


Complex 


CCOS 




Comp 1 ex 


Complex 


Arc sine 


AS IN 


sin"' (arg) 


Real 


Real 


Arc cos I ne 


ACOS 


cos"' (arg) 


Real 


Real 


Arc tangent: 










Real 


ATAN 


tan'l (arg) 


Real 


Real 


Double 


DATAN 


tan-1 (arg) 


Double 


Double 


Two real arg 


ATAN2 


tan"' (argl/arg2) 


Real 


Real 


Exponent lal : 










Real - 


EXP 




Real 


Real 


Double 


DEXP 


g(arg) 


Double 


Doub 1 e 


Complex 


CEXP 




Complex 


Complex 


Hyperbol Ic: 










Sine 


SINH 


sinh (arg) 


Real 


Real 


(^slne 


COSH 


cosh (arg) 


Real 


Real 


Tangent 


TANH 


tanh (arg) 


Real 


Real 


Maximum value: 










Real 


AMAXl 


Max(al,a2,...) 


Reals 


Real 


Integer 


MAXO 


Max(l<l,k2,...) 


Integers 


Integer 


Minimum value: 










Real 


AMINl 


Min(a1,a2,...) ' 


Reals 


Real 


Integer 


MING 


Min(k1,k2,...) 


Integers 


Integer 


Random number 


RAN 


random number 
between and 1 


dummy 


Real 



Table 3,8 FORTRAN-10 Library Functions 
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(6) A blanl< line This is ignorecS in compiling, but useful 

in making the listing easier to read. 

Various types of FORTRAN-IO statements will now be discusse<3. As in all 
versions of the FORTRAN language, the order of the FORTRAN-10 statements is 
important in a program. The proper order of the statements is summarized in 
Table 3.9. 



COMMENT 


PROGRAM. FUNCTION, SUBPROGRAM 
or BLOCK DATA statements 


FORMAT statements 


IMPLICIT statements 


PARAMENTER statemets 


DIMENSION, COMMON, 
EQUIVALENCE, EXTERNAL 
NAMELIST, or TYPE 
Specification 
statements 


DATA 
statements 


Statement 

function 

Definitions 


Executable 
statements 


END statement 





Table 3.9 A Summary of FORTRAN-10 Statement Sequence 



The list of statements in each box indicates the order in which these statements 
must appear. The table also indicates that certain statements may be placed 
anywhere in the range shown in the Table. For example, a FORMAT statement may 
be placed anyvAiere after the PROGRAM statement and before the EM) statement. 



3.8 A Summary of FORTRAN-10 Compilation Control Statements 



Statement 


Function 


PROGRAM name 


This statement Instructs the compi ler to assign ^*ncime" insteaci 
of MAIN as the name of a program, 'haame" must be 5 characters 
or less. This statement, if written, must be the first 
statement of a program. 


INCLUDE 'file' 


file" stancJard file specification. This statement allows an 
inclusion of a code segment In a program unit. 

Physically the last statement of a program or a subprogram. 


END 



Table 3.10 A Summary of FORTRAN-10 Compilation Control Statements 
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3.9 A Suitimaryof Specification Statements 

The specification statements specify the type characteristics, storage 
allocations, and data arrangotients. They are summarized in Table 3.11: 



Statement 



Function 



DIMENSION Sl,S2,...Sn 



'Hhere Si Is an array declarator of either of two form: 

VARIABLE (maxl,max2, , . .^maxn) 

VARIABLE (mini :maxl , min2:max2, . , . , minn:maxn) 

and "minlimax" value represents the lower and upper 
bounds of an array dimension. The symbol colon (:) may 
be replaced by a slash (/) as a delimiter. 

When used In a subprogram, the array dimension may be an 
Integer constant or an Integer variable, thus making the 
dimension adjustable In a subprogram. 



TYPE list 



where TYPE may be one of the following: INTEGER, REAL, 
DOUBLE PRECISION, COMPLEX or LOGICAL. Size modifiers are 
acceptable in FORTRAN-10 but are Interpreted differently: 
type*1 = acceptable but Interpreted as a full word 



IMPLICIT TYPE(al,A2. 
TYPE(bl,B2,..),... 



type*2 = f u I I word 

type *8 = doub le 'p recl si on 

;|jvhere A1 , A2, . . . ,61,82, ... are 

declares the data type of 

according to the first letters 



type*4 = f u I 



word 



be specified by a 
letters, for example; 



letters. This statement 
variables and functions 
A range of letters may 
dash between the first and the last 
IMPLICIT INTEGER (A-N) 



COMMON /blook indentifier /identifier, identifier, , . . identifier 

The COMMON statement causes specified variables or arrays 
to be stored In an area available to other programs. By 
means of COMMON statements, the data of a main program 
and/or Its subprograms may share a common storage area. 



EQUIVALENCE (Vj,V^,...), (Vj^V^^+j'- • • ^ ' 



The EQUIVALENCE statement causes more than one variable 
within a given program to share the same storage area. 



EXTERNAL namel, ncane2. 



Distinguish the names as names of subprograms to be 
as arguments to other subprograms. 



used 



PARAMETER P1=C1, P2=C2, 



where PI = a standard user-defined Identifier, 

CI = any type of constant 
This statement defines constants symbolically 
compi latlon . 



during 



DATA Ust/d2,d2, 



./, Ii8t2/dk,d-i^+i,.../, ... 

The data to be compiled Into the object program is 

specified in this statement. The "list" may be a full 

array or an partial array In an implied DO format. 



Table 3.11 A Summary of Specification Statements 
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3.10 A Summary of Assignment Statements 



The assignment statements are 


summarized 


in Table 


3.12: 






Statement 


Function 


YATilABLE = EXPRESSIOf] 




The EXPRESSION .in an assignment statement may be an 
arithmetic or a logical expression. Their formats are the 
same. In an arithmetic expression, mixed mode Is permitted 
in FORTRAN-10. The rules of mixed mode expression results 
depend on the type of VARIABLE in the statement. Note that 
we are dealing with FORTRAN statements here, while a previous 
Table 3.5 lists the results of mixed mode operations in a 
sub-expression. The rules are now summarized below: 




Mixed Mode Statement 




Expression 
Type 


Variable Type 




Real 


Integer 


Comp 1 ex 


Double 


Logical 


Real 


D 


C 


R,l 


H,L 


D 




Integer 


C 


D 


R,C,I 


H,C,L 


D 




Complex 
Double 


R 


C,R 


D 


- 


R 


H 


C,H,L 


- 


D 


H 


Logical 


D 


D 


RJ 


H,L 


D,H 


Literal 


D,H % 


C,H i, 


D & 


D & 


D % 


Legend: D = direct replacement 

C = conversion with truncation 

R = real part only 

1 = imaginary part set to 

H = high order only 

L = low order part set to 






Note: % = use of the first part of the literal 

& = use the first two words of the literal 


ASSIGNn TO J 


This Is used to assign a statement label constant to a 
variable name, which will become a statement label variable. 



Table 3.12 A Summary of Assignment Statements 
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3.11 A Summary of Control Statements (Table 3.13) 



Statement 



Funct Ion 



GO TO n 



An unconditional transfer statement 



GO TO (.nl ,n2,.., ,nk ) or GO TO {nl ,n2 , . . . ,nk ) 
I Assigned GO TO statement 



GO TO k 



OR 



IF (£■) L1,L2,LS 



\? iE) S 



IF (S) nl,n2 



GO TO ;^ , {LI ,L2,.. .Ln ) 
Assign GO TO statement 



Conventional arithmetic IF statement where ff = an arithmetic 
expresssion 



where S is an executable statement. This Is a conventional 
logical IF statement, where E is a logical expression. 



where n2 and n2 are two statement labels. This is a two-exit 
logical IF statement and E = a logical expression. This 
statement will transfer the execution to statement label nl if 
E equals .TRUE., and to statement n2 i f £" = .FALSE. In other 
words, this is an "IF-THEN, OTHERWISE" statement. 



DO n J = ml, m2, m3 

where n 



terminal statement label 
I = index variable 
ml = initial parameter 
m2 = terminal parameter 
m3 = Increment parameter 

Note: (1) Nested DO°s follow conventional rules. 

(2) Index variable should not be altered within the loop 
range. Even an inclusion as a subprogram argument 
may produce a warning message during compiling. 

(3) The Index variable may be an integer or a real 
variable. The parameters may be Integer or real 
expressions, which will be calculated at the 
beginning of the DO loops. 

(4) Real, Integer, positive, negative, zero constants 
are all permitted for ml,m2,m3 . Thus the FORTRAN-10 
DO-statements allow decrements, negative indices, 
non-integer numeric indices. 



STOP > or STOP 'literal string' , or STOP n 

Terminal will print the literal string as a message or n as a 
message. 



PAUSE, or PAUSE literal string , or PAUSE n 

The PAUSE statemnt will cause the following message to be 

printed at the terminal: 

TYPE G TO CONTINUE, X TO EXIT, T TO TRACE 



Table 3.13 A Summary of Control Statements 
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3.12 Terminology Used in FORTRAN-10 INPOT/OOTPUT (I/O) Statements 

I 
One powerful feature of FORTRAN-IO is that it possesses a set of 
extremely powerful input/output statements, far more powerful than the standard 
set in the 1966 ANSI standard. In order to present the I/O statements, we will 
first get acquainted with some terminology: 



(1) Transfer mode 



Data transfer between storage and I/O devices or 



between storage locations is done in- several different modes: 

a. Sequenctial mode This is the most ccmimon mode, in vrfiich the 
records are accessed or transferred in a sequential order 
irrenediately following the last accessed or transferrecd record. 

^' RandcTO access mode This permits the access and transfer of 
records from a file in any desired order. The OPEN (see Section 
3.16) statement is required to establish an I/O mode of this kind. 

c. impend mode This is a variation of the sequential 

mode. It permits writing a record immediately after the last 
record of the accessed file. The OPEN statement is required to 
establish an I/O mode of this kind. 



d. Dump mode 



(2) Keywords of I/O stateme nts (Table 3.14) 



Keyword 



Transfer of Data 



READ 
REREAD 
ACCEPT 
FIND 

DECODE 

WRITE 

PRINT 

PUNCH 

TYPE 

ENCODE 



from a peripheral device to the processor storage 

repeat the last READ 

from a terminal to storage 

to locate the next recoprd to be read during a 

random access READ operation 

from a specified storage area into the 

from storage to a peripheral device 

from storage to a printer 

from storage to a card punch 

from storage to a terminal 

to transfer from the variables of a specified 

I/O list into a specified storage area 



Table 3.14 A Summary of Keywords of FORTRAN-lO I/O Statements 
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(3) Basic formats and components of READ and WRITE statement s 



Basic 
Statement Form 



Function 



KEYWORD (u,f) list 



Formatted l/o transfer 



KEYWORD (u#R,f) list 



Random access formatted I/O trans fer 



KEYWORD (u, *; list 

KEYWORD (u,name) 

KEYWORD (u) list 

KEYWORD (u#R) list 



Listed-directed I/O transfer 
NAMELIST-control led I/O transfer 
Binary I/O transfer 
Random access binary I/O transfer 



where: 

KEYWORD = READ or WRITE 

u = logical unit number 
/ = format statement number 
list =1/01 ist 

§R = tlie delimiter # followed by the number of a record 
in an established (by an OPEN statement) random 
access file 
* = symbol specifying a list-directed I/O transfer- 
name = the name of an 1/0 list defined by a NAMELIST 
statement 

In additon, when a unit" Is specified, the optional argument 

ERR=o and END=d 

may be added to any of the READ or WRITE statement. 



Table 3.15 A Summary of READA^RITE Basic Formats 



(4) Logical unit number (Table 3.16) 



Unit 
Number xx 


Default 


Use 




Fi lenames 


Time-sharing 


Batch 


1 - 4 


FQRxx,DAT 


DSK 


Dm 


5 ...._ 






TTY 


L CDR„_„ 


6 






TTY J 


LPT 


7 






CDP 


CDP 


'8-30 






DSK 


DSK 



Table 3.16 Logical Unit Number Assigmients 



■Bnese are decimal numbers to identify the physical devices used for most 
FORTRAN I/O operations. The devices should be explicitly specified in the' OPEN 
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statement. The definitions of these unit numbers as well as how many are 
allowed are determined by the local installation. The typical DEC definition 
specifies units ranging from 1 to 63 assigned to the devices DSK, DECtapes, 
magtapes, CDR, LPT, PTR, FTP, etc. However, since a different system of 
peripheral device allocation is used at the University of Pittsburgh, the 
logical unit numbering system is revised and shown in Table 3,16. Installation 
at other institutions may have still diffeent definitions depending on the local 
configurations . 

(5) Formatted and unformatted files Files transferred under the 
control of a format specification are called formatted files. Unformatted files 
are binary files transferred without a reference to a format specification and 
are transferred on an one-to-one correspondence between the source and the 
destination. 

(6) Random access records The randan access records are specified by 
an integer preceded by an apostrophe or a pound sign, for example, '123 or #123. 

(7) List directed I/O The asterisk (*) is an I/O statement in 
place of a FORMAT statement number tells the compiler that the specified 
transfer operation is "list-directed." In a list-directed transfer, the data and 
their type are specified by the READ/WRITE I/O list. If a READ statement has an 
asterisk (*) v*iere the FORMAT number usually is, the list-direct I/O will follow 
the rules listed below: 



a. Octal constants in the list-directed I/O are not permitted. 

b. Literal constants must be enclosed in single quotes, such as 
'TIME'. 

c. Blanks and commas are delimiters to separate different items in 
the I/O list. 

d. Complex constants must be enclosed in parentheses. 

e. If an item is inputted as a null (blanks, tabs, carriage returns, 
or linefeeds, but no data) , the item will retain a previously 
inputted value. 

f . A slash at any time will terminate the input operation even if the 
I/O list is not yet satisfied. . 

g. the repeat of a constant may be written as n*K, which means the 
constant K repeated n times. 

(8) NAMELIST I/O lists The I/O lists are defined by a NAMELIST 

statement (see Section 3.17) in which each I/O list is named by a one- to 
six-character name that may be referenced by a READ/WRITE statement. I/O 
statements with a NAMELIST-de fined I/O list cannot contain a FORMAT statement 
reference or a conventional I/O list. The only type of formatting permitted in 
the NAMELIST-controlled statements is an input record of $NAME varl=valuel, 
var2=value2,.,,$. 
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3.13 A Summary of FORTRAN-10 READ Statements 

Table 3.17 shows a summary of different types of FORTRAN-10 READ 
statements : 



Statement 



Funct ion 



Sequential Formatted READ: 



READ (u,f) Hat 

READ (u,f) 

READ f 

READ f, list 



This is tlie most frequently used form, 
logical unit u to storage. 



It transfer data from 



Input data from unit u into either a H-fleld descriptor or a 
literal field descriptor given within the referenced format. 

Same as READ(u,f) where =default unit for a card reader. 

Read data from a card reader into storage. 



Sequential Unformatted Binary READ; 



READ (u) list 



Read one record from unit u into storage. The record must be 
previously prepared by a FORTRAN-10 unformatted WRITE 
statement. 



Sequential List -Directed READ 

READ fu,V list 



READ *, list 



Read data from device unit u into storage as values of items 

in the list. If necessary, each item is converted to the 
type assigned in the list. 

Read data from a card reader a list-directed list. 



Sequential NAMEL IST-Control led READ: 



READ (u,ncme) 



Read data from unit u Into storage as the values of the Items 
Identified by the NAMELIST Input specified by the name 



Random Access Formatted READ: 



READ(um,f) list 



Input data from record R of unit u according to the 
referenced FORMAT /. The input files must be previously set 
up either by an OPEN or a DEFINE FILE command. 



Random Access Unformatted READ: 



READ (um) list 



Input data from record ^ of unit w. Place data Into storage 
as values of Items in the 1-ist , The Input file must be a 
binary file prepared by a previously applied FORTRAN-10 
unformatted random access WRITE statements. 



Table 3.17 A Summary of FORTRAN-10 READ Statements 



FORTRAN WRITE Statements 
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3.14 A Summary of FORTRAN-10 WRITE Statements 

The WRITE statements resemble the READ statements in formats. Diffeent 
types of FORTRAN-10 WRITE statements are now summarized in Table 3.18: 



Statement 



Function 



Sequential Formatted WRITE: 



WRITE (u,f) list 

WRITE (u,f) 

WRITE f 
WRITE f, list 



This Is the most commonly used WRITE form. It transfers data 
from storage and outputs It on logical unit u. 

Output the contents of any H-fleld or literal descriptor 
contained by to the logical unit u. 

Same as WRITE(u^f) where M=default unit for a line printer. 

Same as WRITE (u^f) list where u=default unit for a line 
printer. 



Sequential Unformatted Binary WRITE: 



WRITE (u) list 



Output the values of Items In the list into the file 
associated with logcial unit u. 



Sequential List-Directed WRITE: 

WRITE (u,*) list Output data from storage Into logical unit u. 



Sequent I a I NAMEL I ST-Contro I I ed WR I TE : 



WRITE (u,name) 



Output data from storage Into logical unit m with the values 
of Items as identified by the NAMELI ST-def Ined list specified 
by the name name. 



Random Access Formatted WRITE 

WRITE (u#R,f) list 



Output into unit u the values from the storage identified by 
the contents of list to record R. Only the disk files that 
have been set up by either an OPEN statement or a ca I I to the 
subroutine DEFINE FILE may be accessed by a WRITE statement 
of this form. 



Random Access Unformatted WRITE 
WRITE (ufiR) list 



Output into unit u the values from the storage Identified by 
the contents of list to record R. Only the disk files that 
have been set up by either an OPEN statement or a call to the 
subroutine DEFINE FILE may be accessed by a WRITE statement 
of this form. 



Table 3,18 A Sumnary of FORTRAN-10 WRITE Statements 
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3.15 A Sumnary of FORTOAN-IO I/O Statem ents 

All EDRTElAN-10 I/O statements, including the READ/VeiTE statements 
already discussed are now sunmarized together in Table 3,19: 



I/O Statement 


Formatted 


Transfer Format Control 


List -Directed 


Unformatted 


Namel 1st 


READ 

Sequential 

1 Random 


READ(u,f)li8t 
READ f,list 
READ f 

READ (u#R^f) list 


READ (u) list 
READ (uM) list 


READ (u, name) 


READ(u, *)list 
READ *,list 


WRITE 

Sequential 
or. Append 

Random 


WRITE (u,f) list 
WRITE f,list 
WRITE f 

WRITE (um,f) list 


WRITE (u) list 


WRITE (u,name) 


WRITE (u, *)list 


REREAD 

Sequential 


REREAD f,list 








FIND 

Random only 


FIND(u#R) 








ACCEPT 

Sequent 1 a 1 
only 


ACCEPT f,list 






ACCESPT *,list 


PRINT 

Sequential 
only 


PRINT f,list 






PRINT *,list 


PUNCH 

Sequntlal 
only 


PUNCH f,list 
PUNCH f 






PUNCH *,list 


TYPE 

Sequential 
only 


TYPE f^list 
TYPE f 






TYPE *,Ust 


ENCODE 

Sequtntlal 
on ly 


ENCODE(c,f,s)lis 


t 






DECODE 

Sequential 


DECODE(c,f,s)Us 


t 






Legend: w= logical unit number * = specify list-directed 1/0 
f= format number ^^ = loci a 1 record position 
list = I/O list "3 = number of characters per 
name = name of specific Internal record 

NAMELIST I/O list s = address of first storage 



Table 3.19 A Summary of FORTRAN-IO I/O Statements 



OPEN /CLOSE Statements 
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3.16 FORTRAN-10 File Control Statements 



The FORTEWN-10 file control contains only two statements: OPEN and 
CIDSE. They are, however, among the most powerful and versatile statements in 
specifying the input/output files. The general forms are: 



0PEN(argl,arg2, ...) 
CL0SE(avgl,arg2, ...) 



The arguments have a genral form of ITEM ~ value. The power and versatility of 
the OPEN and the CIDSE statements are derived fran the many options available as 
the argunents. These arguments are summarized and tabulated in Table 3.20(A&B). 



Although there are many available options, many are special purpose type 
not frequently used. The simplified version is just to take the most often 
"file", "dispose" and "directory" in the OPEN 
"unit" in the CDDSE statement. Thus, the most often 



and 

used arguments: "unit", 
statement, and just the 
used forms are: 



OPEN(UNIT=u, FILE= 'NAI"!E. EXT ', DISPOSE 'value ', DIRECTORY= 'm, n ') 
CLOSE (UNIT=u) 



Example ; 0PEN(miT=5, F ILE=' INPUT. DAT ' ) 

Function : The disk file INPUT.DAT is opened on unit 5. If the 
FORTRAN program is written with unit 5 as the input unit, 
such as in the READ(5,f)list statement, the OPEN statement 
will change the program execution frcxn TTY input to a file 
input. This is a convenient way of adapting an existing 
program fran the TTY input to a disk file input. 

Example : 0PEN(UNIT=1, FILE=' INPUT. DAT', DIRECTORI='115103,320S71' ) 

Function: The disk file IMPUT.DAT[115103, 320571] is opened on unit 1. 



Example ; 0PEN(UNIT=3,ACCESS= 'SEQOUT ' ,FILE= 'DATA. TW ) 

WRITE-statements on unit 3 

CLOSE (UNIT==3) 

OPEN (UNIT=1,ACCESS='SEQIN',FILE=' DATA. niP', DISPOSE-- 'DELETE') 
READ- statements on unit 1 

CLOSE ( UN IT=1) 
Function : An output file is opened on unit 3, to be named as 

DATA.TMP. The file is closed after output statge is 

conpleted; the file is reopened on unit 1 as an input 

file. The file is deleted frcxn the disk when the CIDSE , 

statement is executed. 

Example : 0PEN(UNIT=1 , FILE-- 'INPUT. DAT ', ACCESS^ 'RANDOM ' J10DE= 'ASCII', 
1 RECORD SIZE=80,PROTECTION="177 ) 

Function: Open on unit 1 a disk file INPUT.DAT for random access I/O 
operation in ASCII mdoe. The records in the file are 80 
characters long. When the CIDSE statement is executed, the 
file will be given a protection code of 177. 
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Possible 












Argument 


Value 


Function 


Open* 


Close* 


Default Value 




UllIT " 


Iv.lc 


To define the logical unit number. 


Req 


Req 


J 


DEVICE -■= 


Iv.lc 
Six 


To specify the physical name or the logical name of an 


Op 


Iq 


logical name 
'SEQINOUT' 


"_ 


ACCESS ^ 


To sepcify the type of Input qnd/or output statements 


Op 




possible 


and the file access mode to be used In a specified 1/0 












values 


operations. The six possible values are: 

'SEQIN' = to be read In sequential access mode 

'SEQOUT' - to be written In sequential access mode 

'SEQINOUT' - data file may be fjrst read, then written 

record-by-record In a sequential access 

mode, ftt this access, a WRITE/READ sequence 

Is 11 legal . 
'RANDOM' - to specify random access mode In either 

READ or WRITE operation. The RECORD SIZE 

option Is required when this access mode Is 

specified. 
'RANDIN' » to specify a read-only random access mode 

with a named file. 
'APPEND' » to specify the APPEND mode. The record 

specified by an associated WRITE statement 

Is to be added to the end of a named file. 

You must close It and then reopen the modi- 










MODE = 


four 


fied file to permit It to be read. 










To define the character set of a file or record. 


Op 


ig 


'ASCII' for 






possible 


Four possible values are: 






formatted f 1 1 


e 






'ASCII' - to specify an ASCII file 
'BINARY' - to specify a FORTRAN formatted binary file 
'IMAGE' = to specify an unformated binary file 
'DUMP' = to soeclfy the file to be handled In 
DUMP mode 






'BINARY' for 
unformatted 
file 




DISPOSE = 


possible 
values 


To specify the acMon to bs taken regarding a file at 
the close time. Six values are possible; 

'SAVE' = to leave the file on the device 

'DELETE' ' to delete the file If It Is on disk or on 

a DECtape. Otherwise, take no action. 
'PRWT' " to queue the file for printing If It Is a 

disk file. Otherwise, take no action, 
'LIST' - to queue the file for printing and delete 

It If If Is a disk file. Otherwise, take 

no action, 
'PUNCH' ■ to output on paper tape punch. 


Op 


Op 


'SAVE' 




FILE = 




'RENAME' - to change filename 








- 


Iv.lc 


To specify the name of the frlle Involved In the OPEN 


Op 


Op 


'FORxx.DAT' 






or CLOSE statement. The file name format Is FLNAME.Eja, 














Default conditions: FLNAME = FLNAME,DAT 














FLNAME. = FLANME. 














(null) - FORxx,DAT 














where xx " two-digit unit number 














If the filenames of the same file In the OPEN and the 












oc.lv 


CLOSE statements are different, the file Is renamed. 










PROTECTION = 


To specify a protection code. For example: 


Op 


Op 


"057 








PROTECTION = "155 











Table 3.20A FORTRAN-IO OPEN and CDDSE Statements 
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Argument 
DIKHCTOm = 



BUFFBR COUm 



VERSION = 
BLOCK SIZE = 

RECORD SIZE = 



DEIISm : 

'dialog .= 



Iv.lc 



Iv.lc 
oc, (v 
Iv.lc 

Iv.lc 



two 
possible 



To specify the directory of the file. Most frequent use 
Is to specify the PPN of the file. To specify a PPN 
of [123456,654320, use any of the three ways: 

(1) Single-precision array: 

OPEII<unit=l, Dl RECTORY=PATH^ .,.) 
where PATH and Its elements are: 
DTHEIISION PATIK2) 
PATH(1!="1214S6 [project number 
PATim)="eS432.l 1 programmer number 

(2) Double precision array: 

OPESKunit'l, DIRECTORi=PATH, ...) 
where PATH and Its elements are: 
DOUBLE PRECISION PATH(Z) 
PATH(l)="000000i2MS6000000CM321 
PAT!1(2J="0 

(3) Literal constants: 

OPE'!(umt,=l, DIRECTORY^ '123466, 854321 ',...) 



Dpen* 
Op 



To specify the number of I/O buffers to be assigned to 
a particular device. 



To specify disk file sl2 



To specify the version number of the named fll 



To specify block size for all storage media except 
disk and DECtape. 



specify record size in words. Required argument when 
specifying random access mode. 



n random access mode. It provides storage for the number 
of the record to be accessed next If the program being 
executed were to continue to sequential access records 
starting from the current READ. For example, if record 
number 3 was read, the ASSOCIATE VARIABLE Is 4. 



To set the parity check system for magtape operation. 
Two possible values are 'ODD' and 'EVEN*. 



To set the packing density of magtape. Five values are 

. . ' 200 ', ' 556 '__,_ . ' 80.0 '^J 1_600 ^ . and '625 0*. .^__ 

the use of this option In an OPEN statement enables you 
to supersede or defer, at execution time, the values 
previously assigned to the arguments of the statement. 
The System will return a message at the user's terminal 



Only the changed file specs needed be entered. 



To go to statement No. s when there Is an error during 
the execution of the OPEN or the CLOSE statement. 



Monitor default 



Monitor default 



System default 



Ic = Integer constant; 
Ic = literal constant; 
oc = octal constant. 

Op - optional ; 



Integer variable; 
literal variable; 



TABLE 3,20B FORTRAN-IO OPEN and CLOSE Statements 
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Example ; 0PEN(UNIT=1, FILE-- ' INPUT . DAT ' ) 

Other FORTRAN statements follow. 
CLOSE ( UNIT=1 , FILE= 'OLD. DAT ' ) 

Function ; Here we have the same unit number for the OPEN and the 
CIDSE statements, but they are different file name 
arguments. This is equivalent to renaming a file at the 
CLOSE time. The INPUT.DAT is renamed as OLD, DAT. 



3.17 Format Statements 

The FORMAT statements in FORTRAN-10 are in general compliance with the' 
standard FORTRAN, Therefore, only -a brief summary will be given here. 

The FORMAT statement has a general form of 

n FORMAT (S , S , ,.,) 

where n is the statement number and each S is a data field specifier . The 
various data field specifiers are now summarized as follows: 

(1) Numeric fields In the following list, "w" is an integer 

specifying the field width; "d" is an integer specifying the number of decimal 
places to the right of the decimal point or, for the G-format, the number of 
significant digits. For the D, E, F, and G inputs, the position of the decimal 
point in the external field takes precedence over the value of d in the format. 
This means that the decimal point of the input data need not be exactly at the 
specified column of the format. However, the data must be entered within the 
field specified in the format. 

Floating-point type format Fw.d 

Expnnfint-type format Ew.d 

Double precision Dw.d 

General format: 

Real & double precision Gw.d 
Integer & logical Gw 

Comp I ex 2Gw . d 

Integer format Iw 

Octal format Ow 



(2) Numeric fields with scale factor Scale factors may be specified 
for D, E, F and G formats. A scale factor is written as nP where P is the 
identifying character and n is a signed or unsigned integer that specifies the 
scale factor. 

For the F-type conversions (or G-type, if the external field is decimal 
fixed point) , the scale factor specifies a power of ten so that: 

P 
External number = (internal number) * 10 
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For the D, E, and G (external field not decimal fixed point) formats, the 
scale factor multiplies the number by a power of ten, but the exponent is 
changed accordingly leaving the number unchanged except in form. For example, 
if the statement: FORMAT(F8.3,E16.5) is used to print out two values A and B: 



the same numbers under a format of 
printout of: 



F0RMAT(-1PF8.3,2PE16.5) would produce a 



In input operations, the F-type data are the only type affected by 
factor. 



the scale 



(3) Logical field 



The logical data field specifier is: 



Lw 



where "w" is an integer specifying the field width. If the format is used in an 
input operation, the first nonblank character in the data field is T or F, the 
value of the logical variable will be stored as TRUE or FALSE respectively. If 
the entire data ,field is blank or empty, a value of FALSE is stored. If the 
format is used in an output operation, (w-1) blanks followed by T or F will be 
output if the value of the logical variable is TRUE or FLASE respectively. 

(4) Variable field width The numeric fields may appear in a 
F0R^4AT statement without the specification of the field width "w" or the number 
of places after the decimal point "d" . When this format is used in an input 
operation, the input data can be entered in a "free form" style so long as a 
delimiter is used to separate two neighboring data. Any illegal character in a 
numeric field can be used as a delimiter. However, a good practice is to use 
either a comma (,) or a blank { ) as a delimiter. For example, input according 
to the format: 



10 FORMAT (2F,E, 21, D) 



might appear as: 



-2.34, 2.345, 0.5623E-01, 56, 783, 3.4567234569D+01 
If such a format is used in an output operation, FORTRAN automatically 
the following field specifiers: 



Format 



Becanes 



D25.16 

E15.7 

F15.7 

G15.7 or G25,16 

115 

015 



(5) Alphanumeric fields 



Aw 



The format of an aphanumeric field is: 
or Rw 



The maximum value of "w' is 5 for single precision, 10 for double precision. 
The A-field deals with variables containing left- justified, blank-filled 
characters; the R-field deals with variable containing right- justified, 
zero-filled characters. 
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(6) Algjhanumeric data wittiin a format statement Use nH format or 
enclose the alphanumeric data in single quotes. See examples below: 

10 FORMAT (17H PROGRPM COMPLETE) 
10 FORMAT (' PROGRAM COMPLETE') 

(7) Complex field Complex quantitites are transmitted as two 
independent real quantities. The format specifier consists of two successive 
real specifiers or one real repeated specifier. For example, the following 
format can accommodate four complex quantitites: 

10 FORMAT (4E10. 4, 2E14.5, FlO.5, F10.3) 

(8) $ format descriptor A "$" format descriptor at the end of an 
output FORMAT is used to suppress the carriage return (and the associated line 
feed) at the end of the current record, except when the FORMAT is automatically 
repeated \^^en the WRITE statement list contains more items than those in the 
FORMAT. One typical application is shown in the example below: 

Example : The following is a segment of a FORTRAN-10 program: 

10 FORMATC ANSWER YES OR NO '$) 

11 FORMAT (A3) 
WRITE (6,10) 
READ (5, 11) ANSWER 

Function : When this segment of the program is executed, the following 
will appear on the user ' s terminal : 

ANSWER YES OR NO > (User answers YES or 110 here) 

(9) Print control descriptor- When FORTRAN output file is printed on a 
printer or a terminal, the first character of each line (or record) is reserved 
for the carriage control character which controls the spacing operations of the 
printer or the terminal. The FORMAT should have a beginning field of iHa v^^ere 
"a" is a desired control character. Table 3.21 lists the FORTRAN-10 print 
control characters. 



3.18 FORTRAN-10 Device Control Statements 

The FORTRAN-10 device control statements are normally used for magtape 
operation control, although they also work well with DECtapes and can be used to 
simulate disk devices. These tape control statements provide a set of run-time 
tape control instructions. 

In order to execute these stantements, magtapes must first be MOUNTed, 
and a logical name of be given, where "u" is the logical unit for that tape 
unit in the FORTRAN program. Therefoe, if the device control statements are 
used in a FORTRAN-10 program, preliminaries such as the following must be 
carried out before the execution of the FORTRAN program*: 



*Unless a run-time subroutine, such as MOUNT, is available to mount a tape. 
See Section 3.21. 



Device Control Statonents 



113 



Print 
Control Character 


ASCI 1 
Octal Value 


Function 


space 


012 


Skip to next line; skip to next page 
(form feed) after 60 lines. 


zero 

1 one 


012 
014 

023 
012 
020 

013 



024 

022 
021 


Skip a 1 Ine 


Form feed - go to top of next page 
Suppress skipping - overprint the line 
gSkIp to next line with no formfeed. 
@SkIp two lines. 


+ plus 

* asterisk 

- minus 

2 two 

3 three 
/ slash 

. period 

, comma 


§Space 1/2 of a page. 


Space 1/3 of a page. 

iSpace 1/6 of a page. 

STrlple space with a formfeed after 
every 20 lines printed. 

SDouble space with a formfeed after 
every 30 1 Ines printed. 



Table 3.21 FORTRAN-10 Print Control Characters 
@=No effect on a terminal. 



.DRiy^ MT9 

.MOUNT MT9:u/WE/VID:B313 

Here, the VID used is for illustration. If there are more than one tape for the 
job, the above preliminaries must be done for every tape unit needed in the 
program. 
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The device control statements are now summarized in Table 3.22: 



Statement 


Function 


REWIND u 
UNLOAD u 

BACKSPACE u 

ENDFILE u 
SKIP RECORD u 
SKIP FILE u 
BACKFILE u 


Move and re-posit ton the file bacl< to the first record. 

Rewind the source reel so that the tape is complely off 
the take-up reel. The tape will be ready for unloading. 

Bacl<space one record except if it is already at record 
No.l. This statement cannot be used for files set up 
for random access, 1 ist-directed, or NAMEL 1 ST-control led 

I/O operations. 

Write an endfile record in the file located on device u. 

Skip one record on device u. 

Skip one file which follows immediately the current one. 

Backspace to the first record of the file preceding the 
current one. 



Table 3,22 FORTRAN-10 Device Control Statements 



3.19 FORTRAN-10 Subprogram Statements 

Subprograms are procedures tlnat are used repeatedly in a program or among 
the users, and therefore it is more convenient to define such canmon procedures 
so that they may be referenced. The arguments for such a common procedure are 
made general enough so that the subprograms can be utilized widely. These 
arguments are called dummy arguments. Dummy arguments in a FORTRAN-10 program 
may be one of the following: (1) variables, (2) array name, (3) subroutine 
identifiers, (4) function identifiers, or (5) statement label identifiers that 
are denoted by the symbol "*", "$", or "&". 
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TJiese subprogram statements are now summarized in Table 3.23: 



Statement 



Function 



flAtiE(apgl,avg2, . , . , argn) = expression 

This defines an Internal subprogram, where NAME Is the name 
assigned, (argl ,ca'g2 , . . .) Is a list of dummy arguments. 



TYPE FUNCTION NAME(argl,arg2, . . . ,argn) 

where TYPE = optional type specification such as INTEGER, 

REAL, et. 

{argl ,ar'g2 , ...) = a I ist of dummy arguments. 



SUBROUTINE NAME(a-pgl,arg2, ..., argn) 



yALL NAl'JE(argl,aTg2, . . ., argn) 

I Definition of a subroutine and calling a subroutine 



ENTRY NAME(argl,arg2^ . ..,argn) 

Multiple entry specification where: 

NAME = name to be assigned to the desired entry point. 
Rules of multiple entry in a FORTRAN-10 subroutlen are given 
I ater . 



RETURN 



RETURN k 



Return the control form the subroutine to the calling 
program. Next statement executed Is one immediately 
following the calling statement in the calling program. 



This is a multiple-return statement, where fe is an Integer 
constant, variable or expression. Rules of multiple return 
are given alter. 



Table 3.23 A Summary of FORTRAN-10 Subprogram Statements 



Often, many subprograms share a canmon computational procedure. Although 
these ccmmon procedures can again be made into subprograms to be called by 
subprograms, an alternative is to construct one subprogram with many entrance 
points. In Figure 3.2, a flow chart is shown for three entrance points and one 
exit. The entrance points are labeled as SUB (the front entrance) , ETA and PTB 
(two side entrances) . The program segments are represented as Segments 1, 2 and 
3. 
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Segment 1 
Data needed; 
A,B,C,D 

~" " I 

(pta) 

Segment 2 
Data needed: ' 
A,B,C 
Result: X ! 

(ptbJ 

I 

I 1L 

I Segment 3 I 

i Data needed: ' 

: A,D ! 
I Result: Y 



SUBROUTINE SUB(A,B,C,D,X,Y) 



Program 
Segment 1 



ENTRY PTA(A,B,C,D,X,Y) 



Program 
Segment 2 



ENTRY PTB(A,D,Y) 



Program 
Segment 3 




Figure 3.2 An Example of Multiple Entry Subprogram 



The following rules on ENTRY should be noted: 

(1) An ENTRY statemnet may not be placed in the main program. 

(2) An ElsfTRY statement may not be placed in a DO loop. 

(3) There is no need for the arguments of various ENTRY statements to 
agree with each other. 

(4) Value of function must be returned by the use of current ENTRY name. 

The statement RETURN k enables the selection of any labeled statement of 
the calling program as a return point. When the multiple returns form of this 
statement is executed, the assigned or calculated value of k specifies that the 
return is to be made to the J<th statement label in the argument list of the 
calling statement. The value of k should be a positive integer that is equal to 
or less than the number of statement labels given in the argument list of the 
calling statement. If k is less than 1 or is larger than the number of 
available statement labels, a standard return operation is performed. 
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3.20 Selected FORTRAN-10 Subprograms Developed by DEC (Table 3.24) 



Subprogram 
Name 



DATE (ARRAY) 



Effect 



"ARRAY" is a dimensioned variable in the calling prSogram with 2 
elements. The suroutine will return the values: 

ARRAY(I) = 'OD-Mm', ARRAY(2) = 'm-YY' 
When ARRAY is printed with a 2A5 field format, the result Is 
DD-Mmm-YY, for example, 19-Aug-80, the date when the subprogram 
was executed. To force the "month" part Into all upper case 
letter, the following two statements should be Inserted between 
the CALL DATE and WRITE statements: 

ARRAY(l) = ARRAY(I) .AND. "777777777677 

ARRAY(2) = ARRAY(2) .AND. "577777777777 
Then the above date example would be printed as 19-AUG-80. 



TIME(X) or Tim(X^Y) 

These subroutines will return a string constant X as 'HH:MM' as 
the current time In a 24-hour clock notation, and ' SS.S' for Y, 
where HH=hour, MM=minutes, SS.S=seconds. 



ERRSET(N) 
ERRSNS(I,J) 



EXIT 

RE LEAS (u) 



SAVRAN(I) 
SETRAN(I) 



To control the typeout of execution-time arithmetic error 
messages. Message is suppressed after N occurences. 



To determine the exact nature of an error on READ, WRITE, OPEN 
and CLOSE that was trapped with the "ERR=s" option In the 
statement. The subroutine will return two integers I, J. The 
(I, J) combination describes the nature of error according to a 
code table defined by DEC. (See Appendix H of Reference 4.) 



To terminate the subprogram. 
To release the logical unit u. 



It sets its argument ot the last random number (interpreted as 
Integer) that has been generated by the function RAN. 



The starting value of the function RAN is set to 1 . If 1=0, RAN 
uses its normal starting value. 



SORT( 'OUTPUT=INPUT/ switches ') 

The argument is a string representing a SORT prgram command. 
The details on the SORT program are given In Chapter 7. Check 
with local installation whether this subprogram is installed In 
the system. 



Table 3.24 A Selection of FORTRAN-10 Subprograms Developed by DEC 
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3.21 Selecte(3 Subprograms Develope<3 at the Pitt Computer Center 

A group of subprograms have been -developed and implanented in the 
FORTOAN-10 at the installation of the University of Pittsburgh. These 
subprograms are included for the convenience of Pitt users. EEC System-10 
installation elsevrtiere wDuld have similar types of subprograms but geared 
particularly to the local needs. These programs are often made available to 
other installations by exchange, leaqe or purchase. Since these suprograms have 
beeen implemented already in the Pitt EORTRAN-IO, no additional monitor commands 
are needed to call them. For users elsewhere, they must confirm first with 
their installation personnel vAiether such or similar subprograms are available 
in their facilities. 

The subprograms will be outlined according to their general functions: 

(1) Supplementary library functions This group of subprograms are 

all functions and is used to supplonent the DEC-supplied l)brary functions (such 
as square r(X)t and sine function) which are given in Section 3.6 as Table 3.8. 
These supplementary functions are listed in Table 3.25: 



Function 


Form 


Definition 


Type 


Argument 


Function 


Tangent 

Real (radians) 
Real (degrees) 


TAN 
TAND 


tan(x) 
tan(x) 


real 
real 


real 
real 


Cotangent 

Real (radians) 
Real (degrees) 


COTAN 
COTAND 


cot(x) 
cot ( X ) 


real 
real 


real 
real 


Gamma function 


GAMMA 


(X) 


real 


real 


Error function 


ERF 


erf(x) 


real 


real 


Complementary 
erro function 


ERFC 


1 - erf(x) 


real 


real 


CPU time 


XEQTIM 


CPU time In 
ml 1 1 Iseconds 


dummy 


real 



Table 3.25 



Supplanentary FORTRAN-IO Library Functions 
Developed at the University of Pittsburgh 



(2) Bit manipulation in a mgnory word 

A DEC-10 manory word contains 36 bits. The hardware store a 37th bit for 
parity check, but that is of no concern to the user. The bits are numbered frcxn 
to 35 (from the most significant bit side to the least) as, shown in 
Figure 3.3(a) . 

The group of bit-manipulation subprograms can be used for a wide range of 
applications, such as data re- formatting in data transfer between a magtape and 
disk storage. One particular application is in the area of character-storage 
manipulation. Since ASCII-coded characters are coded into 7-bit bytes, v*iere a 
"byte" is a unit consisting any number of bits, each manory word can accommodate 
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m 

I I L_ 

12 3 4 5 6 7 



UlL 



(a) Bit Positions 



34 35 



CH 1 



CH 2 \ CH 3 I CH 4 ; CH 5 [ J 



->fi I 



6 ! 7 



-13 114---20121' 



-27 28- 



■34 |35 - Bit 

Positions 



(b) ASCII-Coded Character Storage 
Figure 3.3 DEC-10 ASCII Storage Format 



5 characters with one bit left over. The standard ASCII coded storage format is 
shown in Figure 3.3(b). As a result, bit-35 is always filled with a zero-bit 
when the word is an ASCII-coded word. 

These subprograms are now outlined below: 



Function: 



Function: 



Effect: 



LDB(K1, Length, Z) 



- Source wDrd to be processed 

- Byte length in bits (integer, 1 to 36) 

- Starting bit position (integer, 

to 35) 



LDBN(N, Length, Z) 



Source word to be processed 
Bytesize in bits/byte ( 1 to 36) 
Byte number (from left to right) 



Source vrord Z: 



Returned function 



U- Length — • 

|x X X X X 



Byte 



O O O X X X 



^^ 



value: 
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Subroutine: 



Subroutine ; 



Effect 



Example ; 



Function: 



Effect: 



Example : 



CALL 



DPB (Kl, Length, Z2, Zl) 



Starting bit position — 

Byte length — 

Destination word - 

Source word - 



CALL 



Starting byte number - 
Bits/byte — 
Destination word — 
Source word 



DPBPJ (N, Length, Z2, Zl) 

J 



Kl and Length are integer constants or variables. 
"Before" : 



Z2: 

Zl: 


[y_y y ■ 

f w w . • 


. y \u u u u u \z s , , .3 J 
\-t- Length--^ 


'After": 

Z2: 
Zl: 


[y y y • 

\ W V) . , 


, y \x X X X X \z s . , . s \ 









Zl is unchanged. Z2 is unchanged except the deposited 
bute field. 

CALL DPB(0,7,Z2,LBB(7,7,Z1)) 

Exexution of this call will replace the first character in 

in the word Z2 by the second character in Zl as shown below: 



Zl 



LDB 



Z2 



T-ir":-X_:/: 






r:: 



LSH ( word, shift ) 



number of places to be shifted: 

+integer=shift left 

-integer=shift right 
word to be processed 



word: 

LSH (word, +k) 



y y y 






y y'''y ^ ^ ^ ^ ^ 0'''0\ 



M = LSH('ABCDE',-14) 

The string word 'ABCDE' is shifted right 14 places. The 
shif ted-out bits are replaced by O's. Thus, the returned 
function value is M = ' ABC', because the ASCII-coded 
character for code 0000000 is null. 
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Subroutine: 



Effect: 



Example : 



CALL 



ZERO( ARRAY (I), ARRAY (J) ) 



First element 
Last element 



Set all elements within the specified range to zero. 
Array may be of any type. 

CALL ZERO( A(l), A(IOO)) 

Set A(l) , A(2) , ...A{100) to 0. 



Subroutine : 



Effect: 



Example : 



CALL 



ASCEND (Z^ KFIRST, KLAST) 



Array name ' 

First subscript— — 
Last subscript 



Sort the Z-array from Z (KFIRST) to Z (KLAST) in an 
ascending order and then store them in the same array 
locations. 

CALL ASCEm(X,l,100) 

Sort the X-array frcm X(l) to X(IOO) and store them in 

ascending order as the new X-array frcm X(l) to X(IOO). 



Subroutine : 



Effect: 



Example: 



CALL 



SPRAY ( Z(I), Z(J), VALUE) 

- -J I 



First element — 

Last element 

Common value— 



Set the Z-array of the specified subscript range to equal 
to the VALUE . 



CALL SPRAY(Z1),Z(100),1.S) 

Set Z(l), Z(2),..., Z(IOO) to equal 1.5. 



Subroutine : 



CALL 



MOVE (A2(I)^ A2(J) , Al(K) ) 



Effect: 



First element of 
Destination array — - 



Last element of 
Destination array ■ 

First elanent of 

source array — — — 

Copy an array A2 from Al in this manner; 

A2(I) = A1(K) 

A2(J) = Al(K-hJ-l) 



Al and A2 arrays should be of the same type, and avoid 
double precision or ccmplex array because the second word 
of each two-word element won't copy. 
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(4) Device and file specifications 



Subroutine: 



Effect: 



Example ; 



CALL 



RMOUNT ( u , VID , WE , Label , Serial ) 



Integer, logical 
unit unmber- 



String constant or 
variable, VID: 



_J 



'WE' {or 0) or 'WL' — 

•SL' (or 0) or 'NL' ' | 

Used only if Label='NL' ^^ — 

A run- time MOUNT instruction for a magtape or DECtape. 

CALL EMOUNTd, 'B313',0,0) 

This is equivalent to issuing two monitor commands before 

the execution of the FORTRAN program: 

.DRIVES MT9 

.MOUNT MT9:1/WE/VID:B313 



Subroutine : 



Effect: 



Example ; 



CALL IFILE (unit, filename, extension, PPN) 
CALL OFILE (unit, filename, extension, PPN) 

vihere unit = integer constant, logical unit number 
filename = 5-character or less string 
extension =3-character or leess string 
PPN = 12-digfit octal constant 

Default extension is 'DAT'. 
Default PPN is user's own PPN. 

These are respectively equivalent to: 

OPEN (unit=u, file= 'filename, extension ',direotory= 'p,pn ' , 

acaess= ' seqin ' ) 
CLOSE(unit=u, file= 'filename, extension ' , direatopy= 'p,pn ', 

aooess= ' seqout ' ) 

CALL IFILEd, 'INPUT') 

Specify user's INPUT.DAT as an input file on unit 1. 

CALL IFILE (2, 'SAt-IPLE', 'Tf'fP' , "115103320571) 

Note that although 6-character filename is given, IFILE and 

OFILE will only treat it as a maximum of 5-character string 

(because it is coded as ASCII instead of SIXBIT) . Hence 

the search will be for a file SAMPL.TMPin the PHS! of 

[115103,320571], instead of the specified file SAMPLE. IMP. 

If there is actually a file named SAMPL.IMP, this wrong 

file will be called. If there is no SAMPL.TMP, execution 

comes to an error stop. 
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3.22 The SUBSET Subprogram Package 

Many subprograms have been developed by the faculty, staff and students 
at the University of Pittsburgh. Many of these are polished, optimized, and 
well documented. Qie such work is the SubSET ( SUBp rograms to Simplify Encoding 
Tasks) , written by Ronal K. Nicholas* and stored under the PEN of 
[121403,250321], By permission of Mr. Nicholas, a selection of SUBSET programs 
with their subset properties will be outlined. These subset properties are so 
chosen as to represent the salient points in these subprograms. For more 
details, the readers are referred to Reference 7, the SUBSET manual. 

(1) Subprograms to report job information 



Subprogram 
Name 


Furction or 
Subroutine 


Effect 


CORE (IP) 


subroutine 


Return an integer IP which is equal to the number of 
pages of core memeory for the current procjram with 
the fractions of page rounded to the next higher 
value. 


IDENT(ID) 


Function or 
subroutine 


As a subroutine, it returns the argiment ID as 15 
ASCII characters in a 3-word array. The form of the 
ASCII string is ' [m,n] ' in three words. As a 
function, it also returns with "m" in the left half, 
and "n" in the right half of the returned w)rd, both 
as 6-digit octal constants. 


LOCATE (L) 

MYJOB(JOB) 

MYLINE(LINE) 

MYNAm(NAME) 


Function or 
subroutine 

Function or 
subroutine 

Function or 
subroutine 

subroutine 
subroutine 


As a subroutine, it sets the user's job to station L, 
If used as a function, it returns a functional value 
of .TRUE. if successful. Otherwise, it returns a 
value of .FALSE. 


Return a functional value or argunent JOB the job 
number. 

It returns the argiment LINE as the user's t:i?Y line 
number. If it is a Batch job, the value is negative. 


It returns a 3-word array containing 15 ASCII 
characters left- justified, v^ich is the us<5r's name 
as stored in the system. 


WKDAK TODAY) 


It returns a 3=character string vrtiich is the day of 
the day of the week, such as 'Mon' , 'Tue', etc. 



(2) Subprograms to manipulate arrays 

These subprograms deal with initializing an array, copying one array onto 
another, and finding minimum and maximum elements in an array. 



*Ronal K. Nicholas, Research Associate, Division of Research in Medical 
Education, School of Medicine, University of Pittsburgh 
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Subroutine: 



Effect: 



Example : 



CALL 



COPY ( Zl, INCZl, ZZ, INCZ2, NTOTAL) 



First source array element ' 

Zl-increment 

First destination array element 

Z2-increment 

Total number of elements 

to be copied 

Copy the Zl-array by the Z2-array with indicated starting array 
elonents and subscript increments, Zl and Z2 are the first array 
elonents in the specified copying process. If the first element 
has a subscript of one, the subscript may be omitted, and Zl or 
Z2 may appear as array name. 



CALL COPy(X^l,Y,l,10) 
This is equivalent to: 



DO 5 1=1,10 
5 Y{I)=X(I) 



CALL COPY(X(2),2,Y(9),Z,10) 

This is equivalent to: DO 5 1=1,10 

5 Y (3*1+6) =X (2*1) 



Subroutine; 



CALL 



Effect: 



Example : 



iniT( Z, NTOTAL, ZVALUE) 

.J 



Array element or array name 
Total number of Z-element 
to be initialized 
Common value - ^ 



If Z is an array name, initialization begins frcxti Z(l). If Z is 
an array elonent, initialization begins froii the given element. 
Z must be a single precision, real or integer type. 

Initialize the array by the ccxnmon value given 

CALL INIT(X,50, 0.0) 

Set X(l) ,X(2) ,.,,X(50) to zero, 

CALL miT(K(10), 50, KODE) 

Set K(10) ,K(11) ,..,K(59) to a pre-defined value KODE, 

CALL INIT( POINT, 132, ' ') 

Set POINT (1) , POINT (2) ,.,, POINT (132) as blanks. 
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Function or 
Subroutine: 



Effect: 



Example ; 



Mim ( ITEM(I) ^ ITEM(J) , INDEX ) 

mXX ( ITEM (I) , ITEM(J) , INDEX ) 

AMINX ( ITEM(I) , ITEM(J) , INDEX ) 

AMAXX ( REAL(I) , REAL(J) , INDEX ) 



First element in the specified 
array, integer or real as 
ind icated . 

Last elanent in the specified 
array, integer or real as 
indicated. 

Order of Min or Max element in 
the specified list. 

As a subroutine, it returns as INDEX the order of the minmax 
number in the given array. The actual subscript of the minmax 
element and the value of that minmax will require additional 
computation: 

subscript of the minmax element = I + INDEX -1 
MINMAX = ITEM(I+INDEX-1) or REAL(I+INDEX-1) 

As a function, it only returns the value of the minmax element. 
The subprogram is not applicable to double precision or complex 
list. 



CALL AmXX(X(3),X( 300), INDEX) 

If the subroutine returns a value 

maximum of the X-list is X(61) . 



of INDEX as 59, then the 



(3) Subprogram to control TTY characteristics 

This subprogram will accomplish at execution- time a control of terminal 
characteristics properties in the same manner of v\^at the monitor command 
"SET TTY" can accomplish at the monitor level. In a monitor command "SET TTY" 
(or "TTY" in its short form), the general form is: Tn keyword , where keyword 
is either one of a complementary pair of arguments, such as PAGE or NO PAGE , In 
the subprogram shown here named as SETTTY, the "PAGE" part of the example is 
called a Code Parameter, and yes-or-no part is called a Logic Parameter. Thus 
the entire group of TTY commands can be coded into a single subroutine. This is 
shown next. 
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Function or 

Subroutine: SIXBIT ( Z, I, J ) 



Effect: 



Example : 



L 



number of character to be converted to 

the SIXBIT code 
Destination of character after conversion 
Source of ASCII character to be converted 



When used as a subroutine, it returns an array I which is the 

SIXBIT code of Z. If it is used as a function, the first 6 

characters (padded with blanks if necessary) is returned as the 
value of the function. 

Note: Both Z and I are dimensioned variables for the same ASCII 
characters. However, SIXBIT codes contain six characters 
per word, while the ASCII codes contain five characters per 
word. So, the dimensions of Z and I could be different. 

CALL SIXBIT (' SYS', IDUM, 3) 

Convert the ASCII string 'SYS' into SIXBIT code as IDUM. 



Subroutine: 



CALL RUN (DEVICE, SA VEFILE, PPN) 



PPN (octal) v^ere file is 
stored, PPN=0 if in own disk. 

Octal number, SIXBIT code of 
filename of the EXE file to 
be run. 



SIXBIT code of the device 
(no colon) 



e.g. DSK = "446353000000 
(or = "0) 
DTAO = "446441200000 
SYS = "637163000000 



Effect: 



This is equivalent to STOP for the current program; 
monitor command of ".RUN DEV:NAME[m,n] " . 



then apply a 



Example : 



If DEVICE='SYS' , 'NEW or 'OLD' in SIXBIT codes, then PPN=0. If 
DEVICE='MT7' , 'MT8', or 'MT9' in SIXBIT code, the tape must be 
already properly mounted and positioned. 

The ROSI subroutine will drop all files in the old program. If 
files in the old program are dropped without first a CALL RELEAS 
call, the files will be lost if they are output files, and will 
not be available as intermediate data for running the chained 
programs. 

CALL RUN ( 0, SIXBIT ( ' DEFT ',IDUM,4), "116103320571) 

This is equivalent to STOP the current program and then issue a 

monitor command of "RUN DEPT [115103,320571] " 



For the convenience of users and by the permission of Mr. Nicholas, a 
coj^ of the SUBSET package is stored also in ENG: , which is the depository of 
the Engineering Program Library. 
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Since SUBSET is not in the FORTRAN-IO Library but in the user-library the 
EXECLfTE command of a EXDRTRAN program should specifically includes 
"ENG: SUBSET. REL/LIB" in its list, if the program calls any subprogram in the 
SUBSET package. In a batch job, a $INCLUDE card is necessary. For example, the 
following is an execution command for a program that calls the SUBSET 
subprograms: 

.EXECUTE MAIN. FOR, SUBl.FOR, EWG: SUBSET .REL/LIB 



3,23 Comprehensive FORTRAN Subroutine Libraries 

In an academic user community of the size of the University of 
Pittsburgh, it has been estimated that more than 500 "new" Gaussian Elimination 
programs for simultaneous equations were written, debugged, and run each year. 
Many of these came out of courses in programming, numerical methods, engineering 
analysis, econcmics, statistics, etc. Most of them are justifiable as they 
provide the students opportunities to sharpen their skill on a familiar problem 
with proven methods of solution. But some were unnecessary exercises to 
"re-invent the VfAieels" since the elements of student learning are absent in 
those exercises. Such activities are pure waste of human resources and computer 
resources. 

It may be said that computer applications in radically different 
disciplines share a common ground that an application must be first 
mathematically formulated. Once so done, the differences between disciplines 
disappear. For example, the Gaussian Elimination method would be applicable 
whether the problem was orginated from a power system load flow study or a 
regression study from an econcsnics model, so long as the problem is formulated 
as a system of linear simultaneous algebraic equations. Thus a software package 
containing standard solutions to various mathematical problems is a very useful 
tool to computer users in all disciplines. 

In order for such a software package to serve a large group of users in 
many diversified fields, there are several important requirements that must be 
satisfied: 

(1) These programs should be callable in the forms of subprograms 
(subroutines or functions) , so that the user's program remains in control. 

(2) These subprograms should be self-contained so that they will not 
require further attention frcxti the users other than passing the values of the 
subprogram parameters into the subprograms. In particular, there should not be 
any input/output statements in the subprogram. Thus the input/output operations 
become the responsibility of the user's main program. There are exceptions, of 
course. A subprogram may be designed explicitly for input or output oiperations, 
for example, to list and tabulate a matrix. 

(3) In order to adapt to the need of different users, each subprogram 
should have capability of adjustable dimensioh size as well as user-controllable 
error level. At least an estimate of error level should be availatile as a 
return value of the subprogram, so that the user, who has no knowlecige of how 
this subprogram was constructed, will know the level of performance of the 
program. 

(4) There should be clear and uniform documentations available to guide 
the users in defining the subprograms, including the dummy parameters, their 
types, array sizes, order in the parameter list, and their meaning. 
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At the University of Pittsburgh, two" such packages are available. One is 
the I^nternational Mathematical & Statistical Library (IMSL) v*»ich in on-line as 
PRG:IMSL.REL. The other is the IBM Scientific Subroutine Package (SSP)*, which 
is not on-line but may be placed on-line by running a UARC program, as it to a 
great extent duplicates the IMSL coverage. Both packages are comprehensive in 
their coverage, and their documentations are excellent but voluminous. However, 
when a user is faced with a big prograitming job vAiose purpose may be mode than a 
programming exercise, it will be cost-effective to use these library facilities, 
even to the extent of modifying the program in order to fit. 

Both IMSL and SPP contain -several hundred subprograms in the package, and 
therefore are too voluminous to include in this bbok even in a summarized form. 
Only the areas of coverage will be given here to give the readers some idea 
about the comprehensiveness of the package: 

IBM SSP Package ; 

Statistics ; 

Probit analysis 
Variance analysis 
Correlation analysis 
Multiple linear regression 
Polynomial regression 
Canonical correlation 
Factor anaysis 
Discriminant analysis 
Time series analysis 
Data screening and analysis 
Nonpar ametric tests 
Random number generation 
Distribution functions 

Mathematics ; 

Inversion 

Eigenvalues and eigenvectors 

Simulataneous linear algebraic equations 

Transpositions 

Matrix arithmetics 

Matrix partitioning 

Matrix tabulation and sorting of rows or columns 

Elementary operations on rows or columns of matrices 

Matrix factorization 

Integration and differentiation of given or tabulated functions 

Solution of systons of first-order differential equations 

Fourier analysis of given or tabulated functions 

Bessel and modified Bessel function evaluation 

Gamma function evaluation 

Jacobina elliptic functions 

Elliptic, exponential, sine cosine, Fresnel integrals 

Real roots of a given equation 

Real and complex roots of a real polyncsnial equation. 

Polynomial arithmetic 

Polynomial evaluation, integration, differentiation 



*For Pitt users, the SSP source programs are stored and available on a UARC tape 
B4473. See Section 10.7 for the UARC procedure. 
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Chebyshev, Heritiite, Laguerre, Legendre polyncsnials 

Minimum of a function 

i^roximation, interpolation, and table construction 

IMSL Package ; Chapter headings: 

Analysis of Variance 

Basic Statistics 

Catagorized Data Analysis 

Differential Ekjuations; Quadrature; Differentiation 

Eigensystem Analysis 

Forecasting; Econometrics; Time Series; Transforms 

Generation and Testing of Random Numbers 

Interpolation; Approximation; Smoothing 

Linear Algebraic Equations 

Mathematical and Statistical Special Functions 

Non-Parametric Statistics 

Cfoservation Structure; Multivariate Statistics 

Regression Analysis 

Sampl ing 

Utility Functions 

Vector, Matrix Arithmetic 

Zeros and Extrema, Linear Programming 

Example ; Suppose we are to solve a system of 50 simultaneous 
equations. In matrix form, the equation is Ax=B. Suppose 
the matrices have been stored as DATA. DAT file with a 
format of (10E12.4). In the file, the first 250 records 
are the A-matrix by rows, and the last 5 records are the 
B-matrix. Obtain the solution by using the IMSL package. 

Program ; The first step of this problem is naturally to search 
through the IMSL documentation to see if there is one that 
fits the problem. Such a problem would of course be under 
the category of "Linear Algebraic Equations." When such a 
program is found, the user's task is to prepare a main 
program vrfnich calls this IMSL routine. To do so, the main 
program will include the following parts: 

(1) To provide storage (the DIMENSION statement) for all 
variables required for the problem. This not only 
includes the problem variables but also the working 
variables. The IMSL documentation gives detailed and 
exact requirements of DIMENSION. 

(2) To input the data needed by the Library subprogram. 
This includes opening of files, reading of data frcsn 
file or terminal, calculations needed for the 
subprogram parameters, etc. 

(3) To call the IMSL subprogram. 

(4) To output the results. 

IMSL Reference Manual (Reference 10) is a seven- inch 
thick reference book. The content is divided into 17 
chapters, and Chapter L is on Linear Algebraic Equations. 
In going through the routines in that chapter, the routine 
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LEOTIF lists the following headings: 

IMSL ROUTINE NAME - LEQTlF 

PURPOSE - LINEAR EQUATION SOLUTION - FULL STORAGE 

MODE - SPACE ECONCMIZER SOLUTION 

This seems to satisfy our need. The other information 
listed by the Manual are included below: 

USAGE - CALL LEQrlF(A,M,N,IA,B,IDGT,WKAREA,IER) 

A - Input matrix of dimension N by N containing the 
coefficient matrix of the equation Ax=B. On 
output, "A" is replaced by the LU decomposition 
of a rowwise permutation of "A" . 

M - Number of right-hand matrix columns (input) 

N - Order of "A" and number of rows in "B" . 

lA - Row dimension of A and B exactly as specified in 
the DIMENSION statement of the calling program, 

B - Input matrix of dimension NxM containing 
right-hand side of the equation Ax=B.. On output, 
the NxM solution X replaces B. 

IDGT - Input option: If IDGT>0, the elements of A and B 
are assumed to be correct to IDGT decimal digits 
and the routine performs an accuracy test. If 
IDGT equals zero, the accuracy test is bypassed. 

WKAREA - Work area of dimension >= N, 

lER - Error parameter (output) . 

Terminal error: IER=129 indicates that matrix A 
is algorithmically singular. 

Warning error: IER=34 indicates that the 
accuracy test failed. The computed solution may 
be in error by more than can be accounted for by 
the uncertainty of the data. This warning can be 
produced only if IDGT is greater than 0. 

In checking over these specifications, the following 
should be noted: 

(1) The matrices A and B will be destroyed after the 
execution of the subprogram. If they are needed later, 
protect them by copying them into another set of 
variables, or else later re-read the input data A and 



(2) The DIMENSION for the storage declaration should be 
A(IA,IA), B(IA,M) . In addition, it is also the 
responsibility of the calling program to dimension 
WKAREA (lA) . Note that B is dimensioned as a matrix 
with two subscripts. If B is a vector, as in most 
linear systems, B should be dimensioned as B(IA,1) . 

(3) N and lA need not be the same, but N should never 
exceed lA. If N is an input quantity and made to be 
less than lA, such a calling program would be able to 
solve a system of linear algebraic ecjuations of an 
order specified by the user up to lA th order. Such a 
program would increase its flexibility immensely. 
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The program for this problem is listed below: 

DIMENSION A(100,100) ,B(100,1) ,WKAREA(100) 
***** DEFINE THE SIZE OF PROBLEM "N" 
WRITE (6, 100); READ(5,101)N 

100 FORMAT {/' ENTER NUMBER OF VARIABLES = '$) 

101 FORMAT (I) 

***** GET INPUT DATA FOR THE SUBPROGRAM 

OPEN (UNIT=1 ,FILE= ' DATA.DAT ' ,ACCESS= ' SEQIN ' ) 

102 FORMAT (lOE) 
DO 10 1=1, N 

10 READ(1,102) (A(I,J) ,J=1,N) 
READ(1,102) (B{I,1) ,I=1,N) 

***** CALL IMSL SUBPROGRAM LEQTlF 

M=l; IA=100; IDGT=0 ! SUBROUTINE PARAMETERS 
CALL LEQTlF (A,M,N,IA,B,IDGr,WKAREA,IER) 

***** OUTPUT THE RESULTS 

103 FORMAT(/' X{M2,') = ', E12.4) 
WRITE(6,103) ({I,B(I,1)) , I=1,N) 
STOP 

END 



Suppose we name the stored program EQUAT.FOR. This 
program may be executed by a monitor ccHnmand of: 

.EXECUTE EQUAT.FOR, PRG:IMSL/LIB 

With the dimension set up in EQUAT.FOR, it is capable to 
solve a system of up to 100 equations. However, when 
solving a large system, the accuracy requirement may be 
difficult to satisfy because of the accumulation of 
round-off and truncation errors during computations. Then 
the accuracy test would fail in the subroutine execution, 
giving the output lER a non-zero report. 

The following is the computer printout of the execution: 

.EXECUTE EOMT.FOR, PRG:IMSL/LIB 
FORTRAN 5A(621) : EQUAT.FOR 
MAIN. OCTAL PROG SIZE=24167 
LINK: Loading 
[LNKXCT EQUAT execution] 

ENTER NUMBER OF VARIABLES = >100 

X{ 1) = 0.9996E+00 

X( 2) = 0.1995E+01 

X( 3) = 0.3000E+00 

X( 4) = 0.4000E+00 

etc 
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3.24 Array Processor 

In many engineering and scientific applications, the computations often 
involve a relatively simple algorithm done repeatedly on log sequences of data. 
The data may be one-dimensional sequence of numbers (called vectors) , or two or 
more dimensional sequences, (called arrays), for example, a matrix. In such 
computations, heavy overhead must be absorbed on such "book-keeping" chores of 
array indexing, loop counting, and data fetching. In conventional computer 
organization, such overhead must be absorbed by incorporating them sequentially 
into the program, thus ccxnpeting for machine time with the actual computations. 

The concept of parallel processing is to provide hardware so that independent 
computations can be performed at the same time and result in a much faster 
program execution. 

At the DEC-10 installation at the University of Pittsburgh, one such parallel 
processor, the Floating Point 190L Array Processor, is attached to the System B. 
The AP190L is a pipe-line machine that allows the calculations of overhead for 
elements up stream to be performed simultaneously with the element canputations 
down stream (therefore, the name pipe-line) . 

To the FORTRAN users, the usage of the AP190L means to incorjporate certain 
AP190L subroutines calls in the main program. Thus, writing a .FORTRAN program 
that uses the array processor to process data follows the general rules of 
FORTRAN subroutine calls. There are a few exceptions: 

(1) The array processor must be initialized before using other AP190L 
subroutines. 

(2) Data must be transferred from DEC-10 to AP190L main data memory 
before the array processor can operate on it, 

(3) In order to synchronize the AP190L with the DEC-10, wait calls (in 
FORTRAN subroutine) must be inserted in the program vAienver the 
DEC-10 and AP190L interact. 

(4) At the end of array processor execution, data must be transferred 
back to DEC-10. 

All of these steps are done by calling certain appropriate AP190L 
subroutines. These subroutines are listed and explained in details in 
Reference 11. The AP190L Math Library contains subroutines distributed in the 
following areas: 

(1) Data transfer and control operations 

(2) basic vector arithmetic 

(3) Vector-to-scalar operations 

(4) Vector ccxnparison operations 

(5) Complex vector arithmetic 

(6) Data formatting operations 

(7) Matrix operations 
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(8) Fast Fourier Transform operations 

(9) Auxiliary operations 

(10) Utility operations 

(11) signal processing operations 

(12) Table memory operations 

Users should consult Reference 12 concerning the usage of the AP190L. 
Specifically, note the following: 

(1) AP190L is attached to DEC-10 System B as a periperal device. 
Therefore, just as a tape unit, it requires the "DRIVE" monitor 
command to reserve it. See Section 8.10. 

(2) It requires large core memory, larger than most time-sharing 
allocations. Therefore, array processor runs should be submitted as 
batch jobs. See Chapter 9 on how to sutmit batch jobs. 

3.25 FORTRAN 77 

The FORTRAN programming language is one language that is universally 
available, on computers, large or small, in the United States, Europe or the 
rest of the world. Thus, its greatest contribution is that a program written in 
FORTRAN can be run on any machine, after some minor modifications are made if 
required. 

The ANSI FORTRAN IV, standardized by ANSI in 1966, has exercised a 
powerful influence on the portability characteristics of the language. In the 
past fifteen years, there have been many enhancements of the ANSI standard, and 
FOBTRAN-10 is one such enhancement. Varieties of these enhanced versions 
generate a new need for standardization. Thus, an updated standard language was 
announced in 1977, unofficially known as FORTRAN 77, and was formally 
standardized in 19'78 by ANSI (ANSI Standard X3. 9-1978) . While cranpliance with 
the ANSI standard is voluntary, it is expected that all FORTRAN languages will 
be in time evolved into this new version. By necessity, programming languages 
must have universal portability, and the ANSI standard has powerful influences. 
FORTRAN-10 already possesses most of the new attributes of FORTRAN 77, but many 
keywords and syntax are different. It is expected that in a few years, 
FORTRAN-10 will be replaced by some version of FORTRAN 77. Details of 
FORTRAN 77 are outside the scope of this book. Interested readers are referred 
to References 13 and 14 for more details. 
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CHAPTER 4 
FORTRAN PROGRAM DEBUGGING 



4.1 Introduction 

One of the most important but unpleasant stage in the computer usage is 
the necessity to debug a program. The development of programs and the 
subsequent computer execution involve a long chain of events that requires 
error-prone human actions. These errors can be committed by beginners as well 
as by experienced users. The detection and the correction of such errors affect 
seriously the productivity of computer processing applications. These errors 
are colloquially referred to as "bugs" , and the process of detecting and 
correcting them as "debugging." 

The following are some typical statistics regarding the productivity of 
professionals in the software industry: 

The average productivity of a professional programmer in U.S. is 
seven (7) FORTRAN statements per working day. 

For the software development done at a commercial software firm, 65% of 
the software cost is attributed to debugging. 

Breakdown of computer processing failures: (From Reference 1) 

Hardware failure 1% 

System software failure 2% 

Operator mistakes 5% 

System failure 2% 

Programming errors 90% 

It becomes increasingly obvious in the commercial software industry that 
debugging is by far the major component of the software cost. Conversely, vAien 
a software is developed on a fixed budget, the extent of testing and debugging 
becomes the deciding factor for the software product reliability. In the recent 
decade, considerable efforts have been spent on the optimal allocation of 
resources, design of software structure for easy testability and 
maintainability, test and validation procedures for softwares, and various 
diagnostic aids, resulting collectively in a new discipline known as "software 
engineering." 

137 
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Unfortunately, in spite of advances in the software engineering 
practices, the degugging of a computer program still depends heavily on the 
user's knowledge and experiences in the problem, the language, and the computer, 
and hence it still remains largely as an art. However, over the years, 
accumulation of expertise and experience has resulted in the formulation of 
reliable guide lines, good prograimiing styles and practices, checklists for DO's 
and DON'T' s, error reporting and diagnostic facilities in the language 
processors, and on-line debugging tools. It is, therefore, the purpose of this 
chapter to present a summary of these practices, with particular emj^asis on 
FORTRAN program debugging. 



4.2 Types of Errors 

When a FORTRAN program fails, a very natural inclination of the user is 
to suspect that "the cotiputer is acting up again," Mercifully, the computer 
system hardware and system software failures are quite rare nowadays, and 
program errors can usually be blamed as the culprits. 

Program errors are the most numerous and also the most complicated. They 
may be divided into the following categories: 

(1) Errors in problan definition They are errors resulted from failures 
to translate the problem requirement faithfully into the program 
requirements. 

(2) Coding errors They appear in several different forms: 

a. Transcription errors, such as incorrect punctuations and misspellings. 
Such errors will usually be caught at compiling, but some errors may 
go undetected as perfectly legal program statements and a compiler may 
not always be able to spot them. 

b. Syntax errors, or improper use of FORTRAN statements. Such errors can 
usually be detected by the compiler. 

c. Structural errors or failures to provide correct interaction between 
two parts of a program, for example, failure to pass the values of 
parameters from the main program to a subprogram correctly. 

(3) Logic errors . These are failures to sequence the problem 
properly at a detailed level. 

For the remainder of the chapter , we will be mainly concerned in two 
areas of the debugging process: 

(1) How can we reduce the incidence of all types of bugs? 

(2) If a bug exists, how do we detect and correct it? 



Flow Chart Walkthrough 
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The most effective way of minimizing program errors is not making them in 
the first place. Since debugging constitutes 60-90% of a user's effort in 
computer processing, it is cost effective to spend extra effort and time in 
keeping good practice of preparing programs so that the debugging time will be 
reduced. 

At this stage, we will assume that the user understands his problem 
thoroughly and translates it faithfully into the program requirements and 
objectives. If a user fails to do that, no amount of debugging effort can 
rectify the situation. Thus, we will focus our attention to the bugs that are 
either the coding errors or the logic errors or both. 



4.3 Walkthrough by Flow Charts 

One of the most neglected good practice is the preparation of a flow 
chart, before any coding is done, to lay out the flow logic of the problem. 
After the problem is coded, the program will be burdened with a jumble of 
statement details, and the problem logic is then obscured. A flow chart is a 
graphical representation of the logic flow, and is a valuable tool as a problem 
record as well as a tool to identify potential errors. 

Basic mechanics of flow charting is a part of introductory training of 
computer programming and will not be repeated here. For more details, the 
readers are referred to any standard FORTRAN manual or References 4 and 5. 

"Walkthrough" check of a problem is to check the flow logic by playing 
the computer in tracing out the steps of computer processing. Playing computer 
in tracing step-by-step in the program is a tedious chore, but the job may be 
made easier by tracing the steps on a flow chart. 

Let us consider the case of designing a 
subprogram for the Newton-Raphson's method of 
solving for a real root of a polynomial 
equation with no multiple roots. 



Set XO 



Compute f(XO), f'(XO) 
Compute X1=X0-f(X0)/f' (XO) 




Algorithm : Given 
equation of order n: 

n-1 



polyncmial 



f(x) = Ax + ^ 



n-1 



Figure 4.1 



The iterative formula is: 

XI = XO - f(XO)/f' (XO) 

To start the iteration, set XO = certain 
trial value. At the end of XI calculation, 
XI and XO are compared. If they differ 
negligibly, return the result and exit. If 
they differ substantially, use XI as the new 
XO, and the XI is recalculated. And the 
vAiole process is repeated. 
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This wordy description may be greatly clarified by a flow chart, as shown in 
Figure 4.1. 

Now we are ready to do a flow-chart walkthrough. 

First, we check if all the flow arrows go to the right places. Playing 
the computer, we assume a set of data, then follow and trace the flow of 
computations. 

If there is any discrepancy, corrections can be made right there before 
coding the program. If everything seems all right, the next step is the most 
important one. We ask: Under what circumstances can the flow chart go wrong? 

There are many such circumstances. For example: 

(1) Even-order equation may not have any real root. Under that 
circumstance, this method shows that the computer will keep on iterating without 
end, causing an endless loop trying to find a non-existent real root. Has there 
been any provision in the flow chart for such contingency? Answer: No! 

(2) If XO is set arbitrarily, what if it has a value that will make 
f'(XO)=0? That will create a division-by-zero situation. Has the flow chart 
indicated how that can be detected and handled? Answer: No! 

(3) Even vihen the iteration does converge, the flow chart does not show 
any control over its efficiency. For example, if it takes more than 1000 
iterations to converge to a solution, do we want this method, or should we try 
another method? 

We have identified only a few weak spots. There are more wi:ien we analyze 
further. For example, this subprogram requires pre-setting a trial value for 
XO. Why not generate it automatically inside the subprogram? But how? One way 
is to compute -A(n-1)/A(n) and call the result first-trial XO. Then vAiat 
happens when A{n)=0, or can it happen? Thus, walking-through the flow chart 
playing a devil's advocate, we can identify and strengthen the weak spots of the 
logic and substantially improve the reliability of the program generated fron 
it. 

Figure 4.2 shows the revised flow chart after the walk- through process. 
It is not perfect yet, but its reliability is much more improved than the first 
one. Block by block, the flow chart blocks are coded into a FORl^RAN program, 
and this is shown along side with the flow chart. To keep it simple at this 
stage, we use a 4th order polynomial equation as an example. 

There are many other benefits of using flow charts: 

(1) A flow chart can identify more easily the inter-relations between 
parts of a program, and can therefore be used effectively in partitioning the 
program into modules. Later, the testing and the debugging can t>e made more 
effective by modularizing the complete program. 

(2) A flow chart can serve as a language-independent record of the 
program logic. Should there be any modification or adaptation of the program 
using a different language, the flow chart can serve as a generic specification 
of a computer program. 

(3) A flow chart can be re-generated fran a finished or existing 
program. Thus, if we compare the flow chart specification of the problem with 
the flow chart derived from the resulted program, discrepancy and logic error 
can be quickly discovered and corrected without costly computer runs. 



Initial ize: 
X(l) = -B/A ! 

Error bound = 10**(-NPLACE) : 
f'[X(l)3 N 

If f'=0, set X(1 )=2X{1 ) 




X(2)-X(1 ) U Error ^ | yes 
X(1) r Bound ■ i 



X(1)=X(2) 



— (lol CONTINUE f" 



Output error message 




> 






Define f(x) and f'(x) as FUNC and FUNCP: / 
FUNC = Ax"^ + Bx^ + Cx^ + Dx + E ]^ 



i 



FUNCP= 4Ax + 3Bx +2Cx + D 



?■ 



To find a real root "ROOT" to an accuracy of "NPLACE" 
decimal places within "ITER" Iterations, using the 
Newton-Raphson's method for the equation: 



Ax'* + Bx3 + Cx2 + Dx + E 







SUBROUTINE NEWTON(A,B,C,D,E, ITER, NPLACE, ROOT) 
DIMENSION X(2) 

X(1 )=-B/A 

ERROR= 10.** (-NPLACE) 
F1=FUNCP(A,B,C,D,X(1 )) 
IF(F1.EQ.0.)X(1)=2.*X(1 ) 

DO 10 1=1, ITER 

X(2)=X(1 )-FUNC{A,B,C,D,E,X(l ) )/FUNCP(A,B,C,D,X(l ) ) 

IF(ABS((X(2)-X(1 ))/X(l )).LE. ERROR) GOTO 20 

X(l )=X(2) 

CONT I NUE 

WRITE(6, 100) ITER 

FORMATC/'*** NO CONVERGENCE WITHIN', 15,' ITERATIONS.') 

RETURN 

R00T=X(2) 

RETURN 

END 

FUNCTION FUNC(A,B,C,D,E,X) 

FUNC=A*X**4+B*X**3+C*X**2+D«X+E 

RETURN 

END 

FUNCTION FUNCP(A,B,C,D,X) 

FUNCP=4 . *A*X**3+3 . *B*X**2+2 . *C*X+D 

RETURN 

END 



Figure 4,2 Correspondence Between a Flow Chart and a Program 
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(4) Even if the original flow chart is not available, as is the case 
with most beginners, generating a flow chart fran the finished program will aid 
in inspecting the flow of program logic. Even though a program may be well 
documented and commented, it may be too long and complicated to discover the 
errors easily by just reading the program. 

Generating a flow chart from an existing program manually is also a 
tedious task. Fortunately, most canputing facilities have a software facility 
to generate a flow chart by computer. Such a software is available on the 
DEC-10 at Pitt. The program description for FORFLO is given in the next 
section. 



4.4 The FORFLD Program 

The FORFLO program is a program stored in the device "PRG:" (the System 
Program Library) , and it is used to process a finished FORTRAN source file. It 
has the following capabilities: 

(1) To relabel the statements in a FORTRAN source file. Statements are 
given new numbers as their labels in ascending sequence, and the 
format statements are moved and assembled at the end of the program. 

(2) To create a flow chart of the source program on a listing file, 

(3) To re-format the source program into 80-column records, 

(4) to resequence columns 73-80 of each card. 

Since the FORFLO is a System Program Library program, the monitor command need 
to run it is "RUN". Note that programs such as PIP, UPDATE etc are the System 
programs, and use the monitor command "R" to run them. Thus, the command to 
call the FORFLO program is: 

•RUN PRG: FORFLO 

The System will respond with a message "FORFLO V.05 /H FOR HELP." and a 

prompting symbol of "*". At this point, the user may either t^^pe "/H" to get 

the HELP-file (5-page long, about 15 minutes typing time), or apply a FORFLO 
cointiand . 

The standard format of a FORFLO command is: 

REVISED-FILE, LISTING-FILE = SOURCE-FILE/Optional Switc;hes 

vrfnere REVISED-FILE = output file where the revised source prcjgram will be 
stored. It may be omitted if not needed, 

, = a canma, required to separate the revised and the 
listing files. 

LISTING-FILE = name of the listing file. 

SOURCE-FILE = name of the FORTRAN source file to be processed. 
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Each file has the standard specification of DEV: NAME. EXT. The PHsl 
designation [in,n] is allowed in the file specification of the SOURCE-FILE. 
Standard default conditions also apply. Default extension of the REVISED-FILE 
is FOR, and that of LISTING-FILE is tST. 

Either or both of the REVISED-FILE and the LISTING-FILE may be anitted in 
the conmand. The meaning of omission is as follows: 

(1) If the REVISED-FILE part of the ccaiunand is omitted, the command 
becomes: 

LISTING-FILE = SOURCE-FILE/Switches 

and the revised file will not be made. Note the required leading 
comma. 

(2) If the LISTING-FILE part of the ccanmand is omitted, the command 
becomes : 

REVISED-FILE, = SOURCE-FILE/Switches 

and the listing file will not be created. Note the required comma. 
Since the cross reference table and the flow chart are available only 
on a listing file, this command will only revise and store the source 
program, but it will not produce a flow chart or a cross reference 
table. 

(3) If both the REVISED-FILE and the LISTING-FILE are omitted, the FORFLO 
will check the source file for those errors that FORFLO is cible to 
detect, and report the errors on the user's terminal. All other 
functions are omitted. 

Options and variation frcm the standard format can be specified by including 
optional switches. The list of switches and their functions are given in 
Table 4.1. 

Example : The example used in Section 4.3 will be used here for 
illustration. The program is stored on disk as NEWTON. FOR. The following shows 
the sequence of calling and executing the FORFLO program: 

.RUN PEG: FORFLO 

FORFLO V.05 /H FOR HELP. 

■KNEW. FOR, NEW.LST = NEWTON. FOR/Y /I OOF 
FORFLO: NEWTON 

The listing file is produced at the printer and then is deleted fran the 
user's storage quota by a command: 

.QUEUE NEWTON. LST/DISPOSE: RENAME 

If the user wishes to reproduce the list file on his terminal he can do 
so by a command: 

.TYPE NEWTON. IST/EMULATE: LABELS. CCT 
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Option 
Switch 


Function 


Default 
Condition 


/nnnF 


Format reshuffle with user-specified format 
number starting from nnn. 


FORFLO assigns format 
number. 


/nnnL 


Sequencing of statement labels will be 
consecutive multiples of nnn. 


nnn=10; /L and /OL are 
both treated as /lOL. 


/nnnS 


Put sequence numbers on the REVISED-FILE in 
increments of nnn. These numbers will be in 
columns 73-80. 


nnn=0; no number is 
placed in col . 73-80. 


/A 


To make a flow chart (implying /C); 
LISTING-FILE must be specified. 




/B 


To delete blank lines in the SOURCE-FILE. 

To make a cross reference table between the 
source program and the revised program. 


Keep the b lank 1 ines. 


/C 


/H 
/K 


To type out the HELP file. 




To change 026 punches to '029 punches. 




/Q 

/T 


To suppress all listing except the flow 
chart. 




No tab conversion to blanks. 


Tab in the source file 
changed to appropriate 
number of spaces. 


/w 
/x 

/Y 


To suppress warning message when line 
truncation in the revised program is 
encountered. 

Flow chart only; equivalent to the 
compounded switches of /L/A/S/T/Q. No 
revised program; just the flow chart. 

Do everything: move formats to the end of 
the program, resequence the statement 
numbers, and make a flow chart. 









Table 4,1 FORFDO Switches 



where "LABELS. CCT" should be a file with a content of "/DC3:1-66:1" in it. This 
will allow your terminal to emulate a printer and interpret certain 
printer-carriage control characters. Since terminal typing is slow and the list 
file is usually long, this practice should be used sparingly, for example, only 
vrfien a printer is not available to you. The flow chart for NEWTON.DAT in the 

example is reproduced in Figure 4.3. This should be compared with the flow 

chart in Figure 4.2 to see if there is any discrepancy. 



FORFLO Program 
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<Entry; NEWK)N> 



SUBROOTINE NEWTON (A,B,C,D,E, ITER, NPIACE.RXT') 

DIMENSION X(2) 

X(l)— B/A 

ERI!OR=10.** (-NPLACE) 

Fl-Fl»ICP(A,B,C,D,X(ll) 

IF(F1.EQ.0.)X(1)"=2.*X(1) 



0»»»»»»>»»»I 



DO 10 I-1,ITER 



X(2)-X(1)-FUNC(A,B,C,D,E,X(1))/FIJNCP(A,B,C,D,X(1)) 
IF(ABS((X(2)-X(1))A(1)) .I£,ERRDR)(»rO 20 



I»»»>>»»»»>»0 



0««<«««««««I 



WRITE(6, 100) ITER 



0«««««««««««««<«««««««<«««««««0 



NO CONVERGENCE WITHIN', 15,' ITERATIONS. 
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OFF-LINE DEBUGGING BY CODE INSPECTION 



On-line debugging is an expensive process as it uses substantial amount 
of computer resources. As a result, it should be reserved as the last resort in 
the sequence of debugging process, 

Qie effective off-line debugging process adopted at many software houses 
is debugging by team inspection of the code. A typical team consists of four 
people, with one person, not the author of the code, acting as the moderator. 
At the inspection time, the programmer is to narrate the code, statement by 
statement, the logic of the program. The other team members not necessarily are 
familiar with the problem, but they have opportunities and time to study the 
code. At the inspection period, questions are raised and potential error 
sources are pursued. The organization would normally have an error checklist 
for common programming errors, and that list is thoroughly gone over. 

At the conclusion of such a team inspection period, a list of errors and 
suggestions of how to correct them is drawn up. The programmer is then to carry 
out the correcrions. The value of team inspection is to inspect the program 
with a fresh point of view to avoid the "forest-tree syndrome," ("When you are 
in the forest, you don't see the trees.") In an academic environnnent, a group of 
3-4 students can form an inspection team. This is not only an effective 
procedure, but also a valuable learning experience fron each other. 

For the team inspection practice, a valuable aid is a checklist for 
historically common programming errors of the particular programming language. 
For the remainder of this section, we will go over such lists that pertain to 
FORTRAN-10. 



types: 



The ccxnmon programming errors can be categorized into the following 

(1) Data errors. 

(2) Computation errors. 

(3) Logic errors. 

(4) Input/Output errors. 

The checklists for these types of errors will be outlined next. In these 
checklists, we will not deal with any transcription errors, such as incorrect 
punctuations, wrong spelling, illegal characters, or anything that violates the 
rules of FORTRAN-10 language. Vfe assume that proof-reading of the codes has 
been done thoroughly by the programmer at this stage, and all "t^^pos" have been 
corrected. 

4.5 A Checklist for Data Errors 

This type of errors pertains to data incorrectly referenced, declared, 
typed, initialized, or set. Itemized below are a number of cofnmonly committed 
errors presented in the form of a checklist. 
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(1) Does any of the array subscript exceed the bounds specified in the 
DIMENSION statanent? 

Among common programming errors, out-of-bound subscript is probably 
one of two most frequently committed errors, by both beginners and 
experienced users. If this type of error is not caught at the code 
inspection time, it may be very difficult and costly to detect it 
later. A principal reason is that an out-of-bound error will cause 
an unpredictable error symptoms at execution time. These symptoms 
are actually secondary effects of the error. What makes it difficult 
to diagnose during the on-line debugging is that a secondary symptcxn 
may not give any hint of an out-of-bound error. Observe the 
following example: 

Example ; One segment of a FORTRAN-IO program is as follows: 

DIMENSION K(IOO) 

DO 10 1=1,110 !***Subscript out of bound error here 
10 K(I)=I 

TYPE 50, K(5) 
50 FORMAT(/" K(5)= ', 13) 



The error message frcxn the program execution reported that there is 

an illegal character ""@" in the EXDRMAT statement. This is actually 

caused by the invasion of K-values into the FORMAT area in the 
execution program. Thus, in a more complicated program, one can 

waste a great deal of time and resources trying to track down the 

"FORMAT" error, if the error message is taken at its face value 
blindly. 

(2) Is a variable referenced in a statement previously initialized, set, 
and with its type implicitly or explicitly declared? 

This is the other one of two most frequently committed programming 
errors. FORTRAN-10 autatiatically set a variable storage area to 
zero, unless there are DATA statements to set them to other values. 
Thus, many such errors go undetected and cause no damage. However, 
if that segment of program is used more than once, there will be 
initialization errors frcm the second round on, because the value of 
the variable, if not initialized, will be its result value of its 
last calculation. Thus the variable is inadvertently initialized to 
a wrong value. For FORTRAN-10, an incorrectly initialized variable 
can cause chaos if that happens to be, for example, computed GO TO 
index or a variable used in an IF statement. The following shows an 
example of calculating the sum of five integers. 

DIMENSION K(5) 
1 READ(5,5) (K{I) ,1=1,5) 
5 FORMAT (51) 

DO 10 1=1,5 
10 ISUM=ISUM+K(I) !***IStM is uninitialized. 

TYPE 5, ISUM 

GOTO 1 

END 

Upon executing the program, it can be seen that the first-round 
result is correct; but all subsequent results will be wrong. Such 
errors in a ccxnplicated program will be very difficult to detect just 
by looking at the run history and the result. The program will seem 
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to tun normally, and the results may seem to be off, but not by much. 

(3) Is there any negative, zero, or non-integer subscript? If there is, 
make sure it is used correctly. 

FORTRAN-10 allows negative, zero, or non-integer subscripts. It is 
sometimes useful, for example, in the interpolation by integer 
increments. It is a dangerous practice. The negative or zero 
subscripts would make the array variable out of bound, unless they 
are specifically declared in the DIMENSION statement. The 
non- integer subscripts are always truncated (not rounded) into 
integers in assigning values. 

(4) Is there any "off-by-one" error in the DO-loops, iterations, counters 
and indexes? 

(5) If more than two variable alias share a common storage, such as by 
using an EQUIVALENCE statement, are these variables of the same type? 
If they are of different types, does the program contain any steps 
that store a value as one variable alias and later use it as a 
different alias? 

(6) In coding a subprogram, have all parameter variables been explicitly 
declared with their types and dimensions? 

(7) In coding a subprogram, are the dimension specifications of array 
variables consistent between the main program and the si±)program. If 
the subprogram contains an adjustable dimension, make sure that the 
original size of the array does not exceed the size of the array 
assigned within the subprogram, since the size of an array is not 
dynamically expandable. 

(8) In using a subprogram, have all parameter-values been established at 
the subprogram CALL statement? In the CALL statement, does the 
subprogram contain a correct number of parameters in their correct 
sequence? Are the parameters identical in types to those defined in 
the subprogram? 

(9) If a subprogram is called more than once in a program, the referenced 
variables in the subprogram should not be initialized by a DATA 
statement . 

If a subprogram variable is initialized by a DATA statement, it will 
be correctly initialized when the subprogram is called for the first 
time. At the first conclusion of the subprogram execution, that 
variable value is altered by the subprogram computations. Now, in 
the same run, if the subprogram is called for the subsequent times, 
the initialized value of that variable will be the result left there 
in the previous call. Therefore in a program, if a subprogram is to 
be called more than once, the DATA statements in the subprogram 
should be used only to set constants, which are not altered in the 
subprogram execution. For initializing variables, use explicit 
assignment statements. 

(10) In passing the values of parameters frcxn the calling program to a 
subprogram or function, is the unit system consistent? 

For example, the angle computation in the main program may be in 
degrees, but the angle parameter in the subprogram may require a 
value in radians. 
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(11) Some subprograms are written that the input variables are altered and 
returned as the output. Have the input variables been saved 
elsewhere (for example, by duplicating them with another variable 
name) if later computations require the same inpyt variables? 

In many subprogram construction, the output returned frcm the 
subprogram occupies the same storage area as the input to the 
subprogram to save storage. For example, the subprogram SUBROUTINfE 
INVERS(N,A) may be written as a matrix inversion subprogram for a 
square matrix A of NxN size. To save storage, the A-array will 
accommodate the input A-matrix and return the A-inverse as the 
output. Thus, if the A-array is used later for other computations, 
the A-inverse will actually be used, unless the A-matrix is saved 
before calling the INVERS subprogram. 

(12) Are the COIMOSI statements in all subprogram modules defined 
consistently? 

(13) Are there any variables with very similar names, such as ROOT, ROOTS, 
ROOTl, ROOTX, etc? 

The similar names are potential source of errors during transcription 
and entering the program. They tend to confuse the program and make 
the code inspection harder. While it is not necessarily an error, it 
is definitely a poor practice, because it sets up an error-prone 
situation. 

(14) If a data file is referenced by more than one subprogram, do the 
different subprograms refer to the data structure consistently? 

If a data file is an ASCII file, does it happen that it is referenced 
as an ASCII file at one time, but a binary file at another. Although 
both may contains numerical data, but the bit pattern interpretations 
will be different. 



,6 A Checklist for Computation Errors 

(1) Beware of mixed-mode computations. 

FORTRAN-10 allows mixed-mode computations. (See Section 3.6) 
However, one should be thoroughly familiar with the conversion rules 
as given in Table 3.5. For example, when you add a real constant to 
an integer constant, the result is a real constant. Thus, a 
statement as K=l-0.1 would yield K=0, but X=l-0.1 would yield X=0.9. 

(2) Is it possible for divide-by-zero to occur? 

For example, if you are writing a subprogram to solve for the roots 
of a quadratic equation: A*x**2+B*x+C=0. Have you included the 
possibility that "A" may be zero in the subprogram application? 

(3) Does an overflow or underflow situation exist in the program? 

Such situation may exist even though the execution seems to finish to 
a valid conclusion. If such situation exists, scaling or other 
manipulation may be necessary. For example, consider the statement: 

X=(Y1*Y2*Y3*Y4)/(Z1*Z2*Z3*Z4) 
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If each of the values has a magnitude in the range of E+10, the 
multiplications in the numerator and the dencminator would cause an 
overflow, even though the result may be within the range of the 
computer numbers. To avoid an intermediate overflow, rewrite the 
statement as: 



X=Y1/Z1*Y2/Z2*Y3/Z3*y4/Z4 



(4) Have the computations considered the truncation and round-off errors 
in the decimal/binary number conversion? 

For example, does the computation expect 100*0.1 to be 10? If a loop 
is initiated with a counter set at and increment of 0.1, will the 
loop be terminated when 100 increments later the counter reaches 10? 
Vne following trivial program, seeming harmless, will actually create 
an endless loop: 

X=0. 
10 IF (X.EQ. 10.0) STOP 
X=X+0.1 
GOTO 10 
END 



(5) Through the normal computation errors (roundoffs and truncations) , 
can the value of a variable go beyond a meaningful range? 

For exmaple, probability is never negative nor larger than 1; the 
argument for of an arc-sine "function is never larger than 1; the 
argument for a logarithm function can never be non-positive; and the 
values of a rectified voltage cannot be negative. In such cases, 
upper and lower bound bias statements will be required in order that 
the computations subsequently will be meaningful. 

(6) Always check the validity of integer divisions. 

Integer arithmetics, except in division, always produces exact 
integer results, provided they are within range. Therefore, they are 
preferred in such operations as counting the loops and iterations, 
computation of subscripts and indexes, etc. When an integer division 
is encountered, the result is truncated rather than rounded. If 
rounded integer result of division is desired, then the expression of 
division should be "pre-rounded" , as shown below: 

IQ= INUfV'iDENCM replaced by: IQ= (2*INUM+IDENOM)/(2*IDEN0^4) 

Order of operations in the integer arithmetics is important too. The 
following two statements may produce different results: 

IQ = (K1*K2)/(K3*K4) versus IQ = K1/K3*K2/K4 



4.7 A Checklist for Logic Errors 

Logic decisions in a FORTRAN-10 program are mainly made by decision (IF) 
statements with a subsequent object-action statement such as a transfer. 
Therefore, many common logic errors derive out of errors of incorrctly using the 
decision and object statements. 
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(1) In terminating a loop; is there any "off-by-one" error? This would 
result in an iterations with one loop too many or too few. 

(2) Is the ccxnparison done between two variables/constants of the same 
type? Is there any mixed mode comparison? 

For example, is a real variable comparing with an integer variable or 
constant? 

(3) Are logic connectives such as AND, OR, XOR correctly used? 

^4any people get confused on the difference between AND and OR in the 
precise logic meaning. In conmon English, we would say "the roots of 
the equation are 3 and 4"; while we actually mean logically "the 
roots of the equation are 3 or 4." Also, we often investigate 
conditions of "either, or", but fail to investigate the condition of 
" both " , thus confusing the case of "OR" with the case of "EXCLUSIVE 
OR" or "XOR". 

(4) Are the logic operators, such as .GT., .GE., .LT., and .LE,, used 
correctly? 

An error-prone situation is when the programmer decides to change the 
logic fran, for example, .GE. to its inverse .LT. Have the actions 
based on the comparison decisions been changed correctly? 

(5) How exhaustive is a comparison? 

For example, suppose an integer variable is to have only two values, 
1 or 2. In the comparison, can this value ever become other than 1 
or 2, for example, by reading an input? If the value is not 1, is it 
automatically assumed to be 2? If so, you are really trying to 
distinguish I's from non-1 's. If the value is neither 1 nor 2, can 
the program handle the situation? 

(6) In a multi-destination branching statement, such as the COMPUTED or 
ASSIGNED GO TO statement: 

GO TO (N1,N2,..,NK) K 

GO TO K, (L1,L2, ...LK) 
Can the variable K reach a value that exceeds the number of branching 
alternatives? 

(7) Make certain that every loop, every subprogram, and every program 
eventually will terminate. 

Having a STOP or RETURN statement at the end of a program is not an 
conclusive evidence that a program will terminate. The program may 
never reach the STOP statement. Design some informal proof or 
program walkthrough, that a program will terminate under all 
conceivable condtions. 

(8) Is there any portion of the program that will never be executed? 

For example, consider the statement: 

IF(IQ.LT.O)CALL ICfrEST(A,B,C,D) 
If IQ never goes negative, the subprogram IQTEST would never be 
called. Is it an oversight? It calls for a detailed re-examination 
for that statement. 
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4.8 A Checklist for Input/Output Errors 

(1) In the OPEN statement for a file, are all parameters given correctly? 
For parameters not stated in the OPEN statement, are the default 
values satisfactory for the file application? Can the file be shared 
with other users during the program execution? 

(2) Have all files been properly opened before accessing them? 

(3) If the opening of a file is likely to have problem, for example, to 
open a shared file, is there a "ERR=" parameter in the OPEN statement 
to handle the error situation? 

(4) For every READ/WRITE statement, are the listed data perfectly 
consistent with the format specifications referred to by them? 

(5) Even if the format specifications are consistent, is there any data 
truncation caused by the formats? 

For example, if a 5-character alphanumberic variable in a program is 
outputed by a format of "A3", the variable is truncated to the 
leading three characters. Is this an oversight, or is it done with a 
purpose? 

(5) In the format specifications for the WRITE statements, has the first 
column been reserved for the FORTRAN carriage-control characters? 
Therefore, in a typical output format, is the first column blank? 

For example, a format of "511" for outputing {K(I),I=1,5) would cause 
unpredictable carriage movements and K(l) deleted in the output. The 
correct format should be "IX, 511". 

(7) If file reading is involved in a loop operation, the number of 
records to be read by the loops should not be more than the file 
contains. The READ statement should have a parameter "END=n" 
included to handle end-of-file situation. 

Many loops are designed on terminating upon end-of-file condition. 
When the file is revised with more or less records, the loops will 
still be terminated correctly. 



4.9 A Checklist for Program Readability 

In order to do the code inspection, it is necessary that fieople must be 
able to read and understand the code in order to correct, modify, and debug it. 
Unfortunately, it is often easier to re-write someone else's program than to 
modify it. 

Conventional languages use punctuation, indentations, paragraphing, 
ordering and spacing to improve readability. We should also use these practices 
to reduce the chance of misunderstanding. Analogy of good programming style can 
be drawn on a good writing style of conventional English langauage. Good style, 
of course, is a matter of individual opinion. What is a good style to one 
person may be too restrictive to another. Here we will include a checklist for 
good style, but one should realize that "good style" is subject to individual 
interpretation. The following shows a list of commonly accepted good 
progranming styles: 
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(1) Write the comments as you code. 

Details are fresh at coding time. Later, it will be difficult to 
remember v\^at to be ccxnmented. A program with explanatory comments 
is much easier to read and debug. 

(2) As blank lines are used in English to separate paragraphs, use blank 
lines to separate groups of statements. Also, use a blank line after 
an unconditional transfer (GO TO) statement to indicate a break in 
the program flow. 

(3) Select names to increase readability. 

Poor ; Z = X * Y 

Better ; VOLT = AMPERE * OHM 

Poor: SUBROUTINE X001(X1,X2) 
Better: SUBROUTINE PRICE (COST, PROF IT) 

(4) Use a standard rule to define abbreviations (such as for the variable 
names) 

a. Initial letter must be present. 

b. Consonants are more important than vowels. 

c. Beginning of a word is more important than the end. 

d. Add "I" or "X" prefix to the abbreviation to correct the data 
type. 

(5) Arrange the name list in alphabetic order and in neat columns, 
especially if the list is long. Use tab keys. 

Poor : INTEGER ARRAY(128) ,PIXEL(128) ,QU0TE(5) ,TAU(128) ,WEIGHT, 
1SIGNAL,REQST, RESIST, LAB, GAMMA,BETA 

Better: INTEGER ARRAY (1 28 ) , PIXEL (128) , QUOTE (5) , 

1 TAU(128) , BETA, GAMMA, 

2 LAB, REQST, SIGNAL, 

3 WEIOIT 

(6) Sequence the statement labels so that the statements may be quickly 
located in a large program. 

(7) Paragraphing a DO-loop and an IF-statement group. Use indentations. 

Poor : DO 20 1=1,1 Better : DO 20 1=1,10 
X(I)=0.0 X(I)=0.0 

DO 10 J=l,5 DO 10 J=l,5 

Y(I,J)=0.0 Y(I,J)=0.0 

10 CONTINUE 10 CONTINUE 

20 CONTINUE 20 CONTINUE 

Poor : IF(K0DE.Gr.3) GO TO 5 Better : IF(KD0E.Gr,3)G0 TO 5 

CALL STEP1(A,B,C) CALL STEP1(A,B,C) 

CALL STEP2(A,B,C) CALL STEP2(A,B,C) 

5 CALL STEP3(A,B,C) 5 CALL STEP3(A,B,C) 
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ON-LINE PROGRAM DEBUGGING BY DIAOilOSTIC REPORTS 



After an exhaustive off-line debugging process, correct all detected 
errors, and we are now ready for the on-line processing. 

For the on-line processing of FORTRAN program, the sequence of canputer 
processing is first to compile the source program, then to load the object 
programs, and finally to execute. Errors may be detected at each stage by the 
system processors, and these errors are reported on the user's terminal as the 
error diagnostic messages. They are very helpful in identifying the errors 
discovered at each stage, and they will be discussed next in some details. 



4.10 Compiler Diagnostics 

The FORTRAN-IO compiler has an extensive error checking and diagnostic 
capability to diagnose and report the errors in the source program. The report 
includes such pertinent information as the line number of the malfunctioning 
statement in the source, reprinting of the statement, and a brief message 
describing and diagnosing the error. 

There are two levels of error messages. A "warning message" indicates 
either an inconsistency or a tolerable minor error. The compilation will 
continue. The "fatal error message" indicates that the error will result in an 
incorrectly compiled object program if allowed to continue, and hence, the 
compiling is aborted. Thus, a warning message does not necessarily indicate an 
error, but often a tolerable bad or unsual practice. Consider the following two 
segments of program: 

DO 10 1=1,25 VOLTAGE=CURRENT/RESISTANCE 

10 CALL SUB(A,B,I) TYPE 100, VOLTAGE 

When the programs containing these segments are compiled, both will produce 
warning messages. The segment on the left will be objected by the ccmpiler that 
the DO-loop index "I" is being passed to a subprogram, and therefore may be 
possibly altered upon its return. The segment on the right is objected by the 
compiler because the variable names contain more than six characters. In both 
cases compilation continue unless aborted by fatal errors down stream. For the 
segment shown on the right half side, the variable names are actually truncated 
into six-character names. Some programmers have a habit of using full variable 
names rather than their abbreviations so that the program is easier to read. 
This is a good practice so long as the risks are understood. For example, the 
variable names VOLTAGEl, V0LTAGE2, V0LTAGE3 will not be different variable names 
after being truncated to six characters, and all 3 variables will be treated by 
FORTRAN-10 as the variable VOLTAG. Therefore, only when the warnings are well 
understood, then we can ignore them if we are certain no error in the program is 
committed . 

The diagnostics are derived by examining the error symptoms and 
concluding with a most probable diagnosis. Often, the symptoms are secondary or 
even tertiary effect from the original error. For example, if an array X(I) is 
missing in the DIMENSION statement, or if there is an error in that DIMENSION 
statement, the ccmpiler would not recognize later that X(I) is an array 
variable. It vrould take it for granted that it is a function named X with an 
argument I. and this error will not be reported at the compiling stage. 
Therefore, while the compiler diagnostic reports are extremely helpful in 
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identifying the trouble, but one should not be lulled into a false security if 
the compiler reports no error. 

The error message format is: 

7FTNXXX LINE:n text or %F'I'NXXX LINErn text 

where: 

?PrN = FORTRAN compiler message, fatal error 

%FTN = FORTRAN compiler message, warning 

XXX = 3-letter mnemonic code, meaning of vAiich shown below 

LINE:n = line number vAiere error occurs in the source program 

text = explanation of error 

Mnemonic Codes for Fatal Errors and Warnings 

The fatal error messages on the user's terminal are preceded by "?FTN", 
and nonfatal error warnings by "%FTN". Tables 4.2 and 4.3 show a selected and 
summarized subset of diagnostic messages, along with explanations and examples. 

There are many program errors of the type vAiich the compiler cannot 
detect. Some of the ccmmon errors of this type are as follows: 

(1) A part of the program is missing. 

(2) Branching the wrong way fron an IF statement. 

(3) Wrong FORMAT associated with I/O data. 

(4) Incorrect dimension or unspecified dimension of array. 

(5) Incorrect parameter types in a subprogram. 

(6) Array subscript out-of-bound of DIMENSIONed size. 



4.11 Run-Time Diagnostics 

(1) The FOROTS diagnostics 

In the FORTRAN-10 program execution, the tasks of interfacing between the 
user's object programs and the IKC-IO monitor during I/O operations are carried 
out by a processor called FOROTS ( FORT RAN Oaject Time System) . In addition to 
the main tasks, other capabilities include job initialization, core management, 
error-handling and reporting, file management, data formatting, mathematic 
library, user library, specialized applications package, overlay facilites and 
FORTRAN IV compatibility. It is specifically the "error-handling and reporting" 
aspects of the FOROTS that we will be dealing here. 



Code 


Message Text (All Upper Cases) and Explanations 


ATL 


ARRAY [name] TOO LARGE 


The core required to accommodate this array 's larger than the 




user's maximum allocation. 




Statements "ith Errors: Corrected Statements: 




DIMENSION XdOO.lOO.lOO) DIMENSION X( 100, 100, 10) 


AMN 


ARRAY REFERENCE [name] HAS IrlRONG NUMBER OF SUBSCRIPTS. 


The array Is defined to have more or fe»er dimensions than the 




given reference. 




Statements ulth Errors: Corrected Statements: 




DIMENSION X(5,5.5) DIMENSION X(5,5,5) 




X(l,l) = 1.0 X(l,1,n = 1.0 


ca 


NO CLOSING QUOTE IN LITERAL 


Literal constants should be enclosed in closed quotes. 




Statements with Errors: Corrected Statements: 




KAR='NAME KAR='NAME' 




10 FORMAT! ■ X1=,F8.2) lOFORMATC X1 = ',F8.2) 


OIA 


00 INDEX VARIABLE [name] IS ALREADY ACTIVE. 


In any nest of DO loops, a given Index variable may not be used 




for more than one loop. 




Statements Kith Errors: Corrected Statements: 




DIMENSION X(10,10) DIMENSION X(10,10) 




DO 5 1=1,10 DO 5 1=1,10 




DO 5 1=1,10 DO 5 J=l,10 




5 X(l,l )=0.0 5 XCI,J)=0.0 


DID 


CANNOT INITIALIZE A DLWHY PARAMETER IN DATA. 


Statements »ith Errors: Corrected Statements: 




SUBROUTINE SUB(A,B) SUBROUTINE SUB(A,B) 




DATA A/1 .0/ A=1 .0 


DSF 


ARGUMENT [nane] IS SAME AS FUNCTION NAME. 


Statements with Errors: Corrected Statements: 




FUNCTION FUNCCFUNC1,FUNC) FUNCTION FUNC(FUNC1 ,FUNC2) 



THE DIMENSION OF [a 



e] MUST BE OF THE TYPE INTEGER. 



Corrected Statements 



CANNOT USE DUt*IT VARIABLE IN EQUIVALENCE. 



ilth Errors: 



SUBROUTINE SUB(X1 ,X2,X3) 
EQUIVALENCE (X1,X2) 



Corrected Statements : 
SUBROUTINE SUBIXI ,X2,X3) 
X2=X1 



ENTRY STATEMENT ILLEGAL INSIDE A DO LOOP. 



ENTRY STATEMENT ILLEGAL IN MAIN PROGRAM. 



LABEL [number] MUST REFER TO AN EXECUTABLE STATEMENT, NOT A 
FORMAT. 



Statements with Errors 
GO TO 10 



Corrected Statements: 



FOUND [symbol] WHEN EXPECTING EITHER [symbol] OR A [symbol]. 



This Is a general syntax error message. The compiler detects 
something wrong, but not quite sure about what's wrong. 



LABEL [number] MUST REFER TO A FOFIMAT, NOT AN EXECUTABLE 
STATEMENT. 



9 X=1.0 

WRITE(6,9)X 



Corrected Statements : 

9 X=1.0 

WRITE(6.10)X 
10 F0RMAT(F8.2) 



FOUND [symbol] WHEN EXPECTING [symbol]. 



This Is another general purpose syntax error message. 

Statements with Errors : Corrected Statements : 
X=RA«(F1+F2 X=RA«(FH-F2) 



ILLEGAL ASCII CHARACTER [character] IN SOURCE. 



Sometimes, a non-print ASCII character may be inadvertently 
entered In the source. Since It Is not printed out. It may not 
be easily detectable In the proof reading process. 



INCORRECT ARGUMENT TYPE FOR LIBRARY FUNCTION [name]. 



Statements with Err 



Corrected Statements; 



DO LOOP AT LINE: [number] IS ILLEGALLY NESTED. 



The program attempts to terminate a DO loop before terminating 
Dne or more loops defined after the givben one. 



Statements with Errors 

DO 10 1=1,10 

X(l)=0.0 

DO 20 J=l,5 

Y( l,J)=a.O 
10 CONTINUE 
20 CONTINUE 



Corrected Statements : 

DO 10 1=1,10 

X(l)=0.0 

DO 20 J=l,5 

Y(l,J)=0.0 
20 CONTINUE 
10 CONTINUE 



ILLEGAL STATEMENT AFTER LOGICAL IF. 



Two types of statements may not be the objective statement to a 
logical IF. One is a DO-statement, and the other is another 
logical IF statement. 



Statements with Errors : 
IF(K.E9.1)D0 10 1=1,10 



IF(I.E9.1)JF(J.E(J.2) 
1 GO TO 5 



Corrected Statements : 
IFCK.EQ.l )G0 TO 5 
5 DO 10 1=1,10 



ILLEGAL SUBSCRIPT EXPRESSION IN DATA STATEMENT. 



Subscript expressions may be formed only with implicit DO indices 
and constants combined with +, -, », or /. 



Ith Errors: 



Corrected Statements: 



DATA (X(l««2),l=l,5)/5»0.0/ DATA (X( 1*1 ) , 1=1 ,5)/5«0.0/ 



[symbolname] IS NOT [symboltype]. 

The symbol cannot be used in the attempted manner. For exanpl 
a variable and a function cannot share the sane nane. 



ILLEGAL MIXED MODE ARIThWETIC. 



Complex and double precis 
expression. 



operands cannot appear 



LABEL [number] ALREADY DEFINED AT LINE: [number] 



LIST DIRECTED I/O WITH NO I/O LIST. 



NAMELIST DIRECTED I/O WITH I/O LIST. 



NON- INTEGER UNIT IN I/O STATEMENT. 



WRONG NUMBER OF ARGUMENTS FOR LIBRARY FUNCTION [nane]. 



NO STATEMENT NUMBER ON FORMAT. 



STATEMENT NOT RECOGNIZED. 



OPEN PARAMETER [name] IS OF WRONG TYPE 
Statements with Errors: 



Corrected Statements : 



THE DO PARAMETERS OF [index name] MUST BE INTEGER CONSTANTS. 



PROGRAM TOO LARGE. 



SUBSCRIPT OUT OF RANGE. 



UhWATCHED PARENTHESES. 



[symbol type] [symbol name] USED INCORRECTLY 



VSO VARIABLE DIMENSION ALLOWED IN SUBPROGRAMS ONLY. 



Note: In the error message text, the nanes, numbers, characters 
enclosed in square brackets correspond to the actual parameters 
used In the source program. 



Table 4.2 iyinemonic Codes for Fatal Compiling Errors 
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Message Text (All Upper Cases) and Explanations 



CONSTANT UNDERFLOW OR OVERFLOW 



POSSIBLE DO INDEX MODIFED INSIDE LOOP. 



I f a DO loop Index Is Involved In an arithmetic expression, the program may be 
complied incorrectly. The compiler will translate the DO loop index such that the 
number of iterations is calculated at the beginning of the loop and Is never 
affected by modification of the index within the loop. 



Statements with Errors: 



DO 10 1 = 1 ,10 
10 CALL READRAC1,I,-K0L) 



DO 10 1=1,10 
IF( I. GE. 3)1=1+1 
etc 



Corrected Statements ; 

DO 10 1=1,10 
IX=I 
10 CALL READRAC1, IX.KOL) 

not a I lowed to alter the index 



DXB 
FMR 



DATA STAEMENT EXCEEDS BOUNDS OF ARRAY 



MULTIPLE RETURNS DEFINED IN A FUNCTION. 



ILLEGAL CHARACTER, CONTINUATION FIELD OF INITIAL LINE. 



Continuation lines cannot follow comment lines. 



INACCESSIBLE CODE. STATEMENT DELETED. 



Such code may be an oversight, or may be a logic error. Check the flow chart on 
f I ow I og i c . 



ILLEGAL CHARACTER IN LINE SEQ#. 

OPT - ILLEGAL DO NESTING - OPTIMIZATION DISCONTINUED. 



The compiler contains a code optimizer. When a question arises in the source 
program, the optimizer is bypassed and compiler does straight translation. 



OPT - INFINITE DOOP - OPTIMIZATION DISCONTINUED. 



The compiler contains a code optimizer. When a question arises in the source 
program, the optimizer Is bypassed and compiler does straight translation. 



IDENTIFIER [name] MORE THAN SIX CHARACTER 



Statements with Errors: 



VOLTAGE=CURRENT/RES I STANCE 



Corrected Statements: 



Actual statement compiled: 
VOLTAG=CURREN/RES I ST 



NUMBER OF VARIABLE DOES NOT EQUAL THE NUMBERS OF CONSTANTS IN DATA STATEMENT. 



NED 
NOF 



NO END STATEMENT IN THE PROGRAM. 



NO OUTPUT FILE GIVEN. 



[name] STATEMENT OUT OF ORDER 



OPT - VARIABLE Cname] IS NOT INITIALIZED. 



Tab e 4.3 Mnemonic Codes for Compiler Warning Messages 
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The errors detected at run-time by FOKOTS are reported using a format of: 
%FRSXXX text 



where %FRS = FOROTS error diagnostic report prefix 
XXX = 3-letter code as defined in Table 4.4 
text = error message 



CODE 


Expal ant Ions 


APR 


Arithmetic fault errors, generated in calculations. 


DAT 


Data errors, generated in data conversion during an I/O operation. 


DEV 


Device error, generated by I/O hardware errors. 


LIB 


Library function errors. 


OPN 


File OPEN/CLOSE errors. 


SYS 


System errors, generated internally by FOROTS. 



Table 4.4 Mnemonic Codes for FOROTS Run-time Errors 



(2) Error traceback report 

In addition to the FOROTS diagnostics, an error tracebacl^ report will 

also be printed on the user's terminal to aid him to locate the trouble. To 

fully utilize the FOROTS tracebacl<, use the error report in conjunction with the 

compiler listing of the source. For that reason, let us follow a debugging case 
history to identify an error. 
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Example : We will take the Newton-Raphson method example, but insert an 
out-of-bound error in it so that it cannot be detected during compiling time. 
Then write a simple main program to call that subroutine. These source programs 
are stored as one file TEST- FOR. The program listing is shown below along with 
the line sequence numbers: 



00001 
00002 

00003 10 
00004 



call newton (1.,- 
type 10, root 
formatC root = 

END 



11. ,9. ,8. ,20. ,50, 3, ROOT) 



F8.2) 



00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 



10 



100 



20 



SUBROUTINE NEWTON( A,B,C,D,E, ITER,NPLACE,R00T) 

DIMENSION X(2) 

X(l )=-B/A 

ERROR=10.**(-NPLACE) 

F1=FUNCP(A,B,C,D,E,X(1 )) 

IF(F1 .EQ.0.)X(1 )=2.*X(1 ) 

DO 10 1=1, ITER 

X(2)=X(1 )-FUNC(A,B,C,D,E,X(10))/FUNCP(A,B,C,D,X(l )) 

IF(ABS((X(2)-X(1 ))/X(l )).LE. ERROR) GOTO 20 

X(l )=X(2) 

CONT I NUE 

WRITE(6, 100) ITER 

FORMAT(/'*** NO CONVERGENCE WITHIN', 15,' ITERATIONS, 

RETURN 

R00T=X(2) 

RETURN 

END 



00001 
00002 
00003 
00004 
00005 



FUNCTION FUNC(A,B,C,D,E,X) 

FUNC=A*X**4+B*X^«»3+C*X*»2+D*X+E 

RETURN 

END 



00001 
00002 
00003 
00004 
00005 



FUNCTION FUNCP(A,B,C,D,X) 

FUNCP=4 . *A^*X»*3+3 . *B*X»*2+2 . >C*X+D 

RETURN 

END 



Note that the line No. 0000 8 of the subroutine NEWTON has an out-of-bound 
error. X(l) is incorrectly entered as X(10) . 

Upon a compiling command, the following printout was obtaint^d: 

,CO!"fPILE TEST. FOB 

FORTRAN 5A(621): TEST. FOR 

MAIN. OCTAL PROG SIZE=53 

FORTRAN 5A(621): NEWTON. FOR 

NEWTON OCTAL PROG SIZE=211 

FUNC OCTAL PROG SIZE=52 

FUNCP OCTAL PR0G=55 

Therefore, it appears that compiling for the main progr,am and three 
subprograms were successful, because there is no error message. Next the 
program is executed: 
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^EXECUTE TEST. FOR 
LINK: loading 
[LNKXCT TEST execution] 

5JFRSAPR Floating overflow at FUNC+16[457] 

FUNCC440 called from NEWT0N+47C322] with 6 args of type F,F,F,F,F,F 

NEWT0NC253] called from MAIN.+4C161] with 8 args of type F,F,F,F,F, I , I ,F 



(The same report is repeated several times) 

^FRSDAT Output field width overflow 

Unit=-1 TTY:/ACCESS=SEQmO/MODE=ASCI I 

Input record = 0; Output record = 1; 

(• ROOT =»,F8.2) 

I OL ST. [404320] called from MAIN.+10C165] with no args 

ROOT = **»*»*** 

End of Execution FOROTS 5B(10G1) 
CPU time: 0.06 Elapsed time: 0.07 

No. of Error 

Errors Type 

1 Output field width overflow 

76 Floating overflow 

EXIT 



It is at this point that many people are overwhelmed. Actually, to a 
FORTRAN user, there are much useless information he can simply ignore. For 
example, all numbers in square bracltets are actual core addresses, and they are 
useless to a FORTRAN user. Therefore, focus your attention on the expressions 
having the form PROGRAMNAME+NUMBER, such as NEWTON+47, which are memory 
locations in relative addresses, PROGRAMNAME is the base address of the program 
unit, and NUMBER is the offset indicating the relative address. So, let us 
interpret the trace report without the core addresses: 

"^FRSAPR Floating overflow at FUNC+16" 

Meaning ; Arithmetic error (APR) of floating point overflow occured in 
the program unit FUNG, and at a location of relative address 16, If we 
have a location map of relative address of FUNG statements, the offending 
statement may be quickly identified. This relative address map is on the 
compiler listing. 

"FUNG called from NEWTON+47 with 5 args of type F,F,F,F,F,F" 
Meaning ; The offending subprogram is called by the statement in the 
subprogram NEWTON with a relative address of 47. Again a compiler 
listing will quickly identify the calling statement, 

"NEWTON called from MAIN. +4 with 8 args of the type F,F,F,F,F, I , I ,F" 
Meaning : The subprogram NEWTON was called by a statement in the MAIN 
unit that has a relative address of 4, 

The other error report passage indicates the error in I/O processing, 
purported to be out of range of the assigned format. The format is printed to 
aid the identification. 
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(3) Use compiler listing to locate the error 

A. How to get a compiler listing 

To get a catipiler listing, use a switch /LIST when applying the 
canmand for COMPILE, IDAD or EXECUTE. However, if the ^source program 
has been previously compiled and a valid REL file already exists, 
delete that REL file first. Otherwise, no new compiling will be 
done. To compile (or load, or execute) and produce a compiler 
listing, use the ccsranand: 

.COMPILE FLNAME. FOR/LIST 

In addition to producing a FUSIAME.REL file, this canmand will also 
create a compiler listing file stored as FLNAME. LST. Carrying on the 
example started in the previous part, a compiler listing is produced 
by a command of "COMPILE TEST. FOR/LIST", and the result is shown on 
the next three pages. 

Reproduction of Compiler Listings 



MAIN. TEST. FOR FORTRAN V.5A(621) /Kl/L 10-OCT-80 9:51 PAGE 1 

00001 CALL NEWTONd .,-11 .,9.,8.,20.,50,3,ROOT) ) )^-.o^ 

00002 TYPE 10, ROOT f ^'^t^ /n ^ 

00003 10 FORMAK' ROOT = ', F8.2) I ^°^o(o'^ 

00004 END >' ^ 



SUBPROGRAMS CALLED "j QtfwW®^ r*«*- 
NEWTON 3 O'^ ^"^ ^ 



SCALARS AND ARRAYS [V'*" ^^ EXPLICIT DECLARATION - "%" NOT REFERENCED - " " SUBS 
CRIPTED ] / ^ 

*R00T 1 R j \%ff^ 

TEMPORAR I ES ■ ^^0 Wi^t.rafi^ MarvoJo^ 

;tT^^^^^^NUMBgX6c^ — U;ne-«*'2 s-fere^ I'rN UcrtHoA* 5--to (©etc.!) 

L>0 12 3 4 5 6 7 89 



00000 : 3 5 - 11 

MAIN. OCTAL PROG SIZE=53 [ SCALARS/ARRAYS=1 + F0RMATS=4 + TEMPS/C0NS=7 + 

C0DE= 

13 + ARGS=24 ] 

[ NO ERRORS DETECTED ] 
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00001 


« 








00002 






SUBROUTINE NEWTON(A,B,C,D,E, ITER, NPLACE, ROOT) ^ 




00003 






DIMENSION X(2) 




00004 






X(1 )=-B/A 




00005 






ERROR=10.**( -NPLACE) 




00006 






F1=FUNCP(A,B,C,D,E,X(1)) 


'Si' 


00007 






IF(F1.EQ.0.)X(1)=2.«X(1) 


00008 






DO 10 1=1, ITER 


00009 






X(2)=X(1 )-FUNC(A,B,C,D,E,X(10))/FUNCP(A,B,C,D,X(1 )) 


00010 






IF(ABS((X(2)-X(1 ))/X(1 )).LE. ERROR) GOTO 20 


00011 






X(1)=X(2) 


00012 


10 




CONT 1 NUE 




00013 






WRITE(6, 100) ITER 




00014 


100 




FORMAT(/«»»* NO CONVERGENCE WITHINM5,* ITERATIONS. 


^) 


00015 






RETURN 




00015 


20 




R00T=X(2) 




00017 






RETURN 




00018 






END 




SUBPROGRAMS 


CALLED "J -^ S'^'^V^"^ 










h c-^^-^* 




ABS. 


FUNCP 


FUNC J 




SCALARS 


AND 


ARRAYS C "»" NO EXPLICIT DECLARATION - "%" NOT REFERENCJ 


D - " " SUBS 


CRIPTED ] 






. \la^'«^'^' 


»E 




1 


R *B 2 R *ITER 3 1 


'^ assvy^^ 


*D 




4 


R »A 5 R 


«ROOT 




6 


R »ERR0R 7 R »NPLACE 10 1 




X 




11 


R *l 13 1 J 




*F1 




14 


R «C 1 5 R 





.A0015 



TEMPORARIES 

.SOOOO 30 

L I NE NUMBER/O CTAL LOCATION , MAP 



31 R 



.QOOOO 



32 1 



} 



1 /jC'^'^ 



00000 

43 

00010 : 54 




64 



21 



24 
72 



31 
73 



34 



40 
75 



62 64 (^'66^ 

NEWTON OCTAL PROG SIZE=211 [SCALARS/>KRAY5=1 5 + F0RMATS=12 + TEMPS/C0NS=6 + CODE 
= 114 + ARGS=40 II "----..^^ 

C NO ERRORS DETECTED ] ^^-\ 



00001 
00002 
00003 
00004 
00005 



FUNCTION FUNC(A,B,C,D,E,X) 

FUNC=A*X»*4+B*X*»*3+C*X**2+D*X+E 

RETURN 

END 



SUBPROGRAMS CALLED 



oy w ft( re (6 , loo) iTEi^ " • s 

6G -7/. 



164 CHAPTER 4 FORTRAN PRaa^^ DEBUGGING 



SCALARS AND ARRAYS [ "*" NO EXPLICIT DECLARATION - "%" NOT REFERENCED - " " SUBS 
CRIPTED ] 

*D 3 R 



*E 


1 R 


»B 


2 R 


*A 


4 R 


*X 


5 R 


*C 


6 R 


*FUNC 


7 R 



TEMPORARIES 

.A0002 10 R .A0003 11 R 
LINE NUMBER/OCTAL LOCATION MAP 

12 3^ 



00000 



16 - 35 



FUNC OCTAL PROG SIZE=52 CSCALARS/ARRAYS=7 + TEMPS/C0NS=2 + C0DE=41 + ARGS=0] 
[ NO ER RORS DETECTED ] 

00001 * 

00002 FUNCTION FUNCP(A,B,C,D,X) 

00003 FUNCP=4 . *A*X**3+3 . *B*X**2+2 . »C*X+D 

00004 RETURN 

00005 END 

SUBPROGRAMS CALLED 

SCALARS AND ARRAYS [ "*" NO EXPLICIT DECLARATION - "%" NOT REFERENCED - " " SUBS 
CRIPTED ] 

*B 1 R *D 2 R *A 3 R 

»X 4 R *FUNCP 5 R 

*C 6 R 

TEMPORARIES 

.A0002 7R .A0003 10 R .A0004 11 R .A0005 
12 R 

LINE NUMBER/OCTAL LOCATION MAP 

01 23456789 



00000 



16 - 35 



FUNCP XTAL PROG SIZE=55 [SCALARS/ ARRAYS=6 + TEMPS/C0NS=4 + C0DE=43 + ARGS=OJ 
C NO ERRORS DETECTED ] 
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Each program (the main program, each subroutine, each function) 
has a complete compiler listing that contains the following parts: 

a. The program listing. The program unit is listed with 
line sequence numbers assigned in the exact way the source program is 
prepared. All comment lines, continuation lines and blank lines will 
all be assigned with unique line sequence numbers. They are decimal 
numbers. 

b. List of subprogram names called by this unit. Library 
functions are identified by names followed by a period; user 
functions with names only. If there is an unfamiliar function or 
subroutine name in the list, it identifies a possible error. The 
subprogram name may have been misspelled, or an array variable did 
not get DIMENSIONed. 

c. "Scalers and Arrays". These are all variable names used in 
the program unit. Each variable name listing has a format of: 

xNAME n # Type 

where: x = type declaration code: 

Code Meaning 

* variable not declared explicitly 
% type declared but variable not used 

blank dimensioned as conventional type 

NAME = variable name 

n = relative address in octal number 
# = indicating this is an array 
datatype = data type codes: 

Meaning 



integer 

real 

complex 

double precision 

logical 



By going through the list and cross-checking the program, mis- typing 
of data can be quickly identified. 

d. "Temporaries". These are temporary variables generated by 
the compiler. Ignore this part; they are useless to FORTRAN users. 

e. Location map. The map is printed in a matrix form. The 
row and column headings together form the line nun±)er, and the matrix 
element value is the first address (relative) of instruction codes 
translated from that line. Let us reproduce the map of the NEWTON 
subroutine of the last part: 
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LINE Nl 


JMBER/XTAL 
1 


LXATION 
2 


MAP 


3 


4 


\ 

5 


6 


7 


8 


9 


00000 
00010 


54 


62 



64 




66 


21 


;t 


31 
11> 


34 


40 
75 


43 



Frcm this map, we can/ easily determine the core address 
assignment (in relative addresses) for every line of the program 
unit. For example, in the program unit NEWTON, the core assignment 
in relative addresses is as fallows: 



Line #: 



4 


Core addrs 


sses: 


21-23 octal 


5 




^-— 


24-30 


6 






31-33 


7 






34-37 


8 
tc 






40-42 
etc 



f. Program size. The program size is broken into its 

components, and their sum is the total program unit size in octal 

number. Program size=53 means, octal 53 DEC-10 words, or decimal 43 
DEC-10 words. 



B, How to use the compiler listing to locate errors 

Once the relative address is known, the line number and the 
statement can be quickly identified. 

Returning to the last example, FtlNC+16 identifies Line #3 of 
FUNC; NEWTON+47 identifies Line #9 of NEWTON; and MAIN. +4 
identifies Line #1 of the main program. The conclusion of the 
tracing report is: 

The error is generated by Line No. 3 of the FUNC program, which is 
called by Line No. 9 of the NEWTON program, which in turn is called 
by Line No.l of the main program. 



(4) The ERRSNS subroutine 



In addition to the above run-time FOROTS error-reporting 
facilities, there is a FORTRAN library subroutine ERRI3NS that may be 
called by the "ERR=" parameter of READ, WRITE, OPEN and CLOSE 
statements in the form: 

OPEN {UNIT=1 ,FILE= ' INPOT. DAT ' , ERR=9999) 



9999 CALL ERRSNS {I, J) 

TYPE 9998, I, J 
9998 FORMAT (' READ/IWRITE OR OPEN/CDDSE ERROR CODES: 

STOP lor other error handling steps 



214) 
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The meanings of two integers "I" and "J" returned by the 
error-report subroutine ERRSNS are tabulated in Table 4.5: 



1 


J 


Explanation 






101 


no error 

completion with no error 


23 


312 


Backspace illegal for device 


24 


308 


Reaching end of file during READ 


25 


opt 


invalid record number 


26 


opt 


Sequential file used as a random access 


28 


opt 
254 
262 
268 


CLOSE error 

Rename file already exists 
No room, quota exceeded 
Cannot delete or rename a file 


29 


opt 
250 


no such file 
File not found 


30 


opt 
240 
242 
245 
248 
249 
251 
253 


OPEN fai lure 

Record length spec missing for random access 

Too many devices opened (Max: 15) 

Device not avai lable 

Illegal access for device 

Illegal I>^0DE or MODE switch 

No such PPN 

File being modified, not available now 


31 


opt 
315 


Mixed access modes 

Random access file used as sequential 


32 


239 


Invalid logical unit number 


39 


opt 


READ error 


45 


opt 


OPEN statement keyword error 


47 


263 


Attempt to WRITE on READ-only file 


62 


opt 
301 
314 


FORMAT syntax error 

Illegal character in FORMAT 

Missing width for A- or R-FORMAT on input 



Table 4.5 Selected Numeric Codes of Error Report Subroutine ERRSNS 
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4.12 Dimension Out-of Bound Errors 



Debugging frustration usually is derived from two causes: (1) the user 
is not familiar with the meaning of the error message, and (2) the user relies 
on the error diagnostics blindly. The first cause may be easily remedied. The 
material presented so far should be helpful in resolving the first cause 
somewhat. The second cause will be difficult to remedy, unfortunately. The 
error diagnostics are based on a failure symptom that may be a secondary or 
indirect effect of the original offender^. By far the most frequent culprit in 
raising the programmer frustration is the dimension out-of-bound t^/pe of errors. 

When a DIMENSION statement is specified in the source program, the 
compiler records the number of reserved storage locations, translate the source 
into the object codes, and reserve necessary argument storage and I/O buffers. 
These storages form a contiguous entity and later the LOADER will try to find a 
contiguous space in the core to fit it. There is no policing at the execution 
time to see that an array will not go beyond its assigned space. 

As a result of ccxtipiling, each array is identified by a base address 
where the first element of the array will be stored. If the X-array has a base 
address at "ADDX", then X(l) is stored at ADDX, X(2) at (ADDX+1) , X(3) at 
(ADDX+2) , and so on, and X(k) at (ADDX+k-1) . The quantity (k-1) is called the 
OFFSET, and therefore, the address of an element of array can be identified by 
computing (BASE+OFFSET) . Access to an element in the array is performed in this 
manner. The OFFSET of a multi-dimensioal array is ccxtiputed on a linear array 
basis. Naturally, for correct computations of a K-element array, the OFFSET 
should not be larger than (K-1) and should never be negative. Unfortunately, at 
the run-time, the OFFSET is not checked with the array size K. Hence, a 
dimension out-of-bound error cannot be detected per se at run-time but will be 
detected by the damage, if any, caused by it. 

In a typical core storage for a program execution, in contiguous order 
are the storage areas for: data area, formats, temporarily generated codes, 
instruction codes, subprogram argument codes, I/O buffer areas, etc. If an 
array located in the data area is too large for its assigned locations, the 
surplus elements will go to other data storages, or into the instruction codes, 
or into the I/O areas, all dependent on the OFFSET calculation. Naturally, in 
this process, the information of the invaded area are altered and the result 
becomes unpredictable. Thus v^en the invaded area information is used for a 
subsequent execution, anything can happen,. 

Suppose the following is a segment of a FORTRAN program: 

DIMENSION X{100) ,Y(10) 

DO 5 1=1,150 
5 X(I)=0.0 

Let us now analyze the consequences. 

(1) The extra X-array elements may only alter other data storages, and 
this alternation will makes the result of computation invalid. On the other 
hand, the remaining computations may not need the affected values, and the 
results may be correct. Therefore, such a program may sometimes produce correct 
results, sometimes not. But the program will successfully run to a completion. 
This is often a case where a programmer blames on the "temper" of the machine. 
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(2) The extra values may invade the instruction code area and alter the 
contents. The result will be unpredictable. Co incidentally, the alteration may 
change a code to another perfectly legitimate code, and the program execution 
will take on a new and strange direction. Most likely, the alteration will 
result in a non-executable instruction, and an error message to that effect 
comes back to the puzzled user. 

(3) The extra elements may alter some subscript- or index-calculation 
code in such way that a very large subscript value is obtained. Its OFFSET may 
be so large that it exceeds the boundary of the user's core allocation. Imagine 
how the user feels vdien he sees an error message of "NEED MORE CORE" for his 
short program. 

(4) If the extra values invade the I/O buffer area where input/output 
data are formulated according to a FORMAT, an error message of "AN ILLEGAL 
CHARACTER IN THE FORMAT" will send the user on a unproductive wild goose chase. 

Thus, while the out-of-bound error is one of the most frequently 
committed errors, its detection is far from obvious. 

Because of the high incidence of such errors, an effectvie strategy may 
be as follows: 

(1) After an error diagnostic message is received, the source program is 
checked as reported by the diagnosis. Often, these circumstantial evidences 
fail to unearth the real trouble. Then , always suspect first there is an 
out-of-bound error.* 

(2) Delete the compiled REL file, and re-execute the source file now 
with a /DEBUG:BOUNDS switch. Note that the out-of-bounds error cannot be 
detected just by re-compiling even with the DEBUGiBOUNDS switch. That switch 
will perform the debugging only when the program is executed. 

(3) Insert several core-occupying but meaningless statements in the 
suspected source program, for example: 

DIMENSION YYYY(IOO) 
DO 9999 1=1,100 
9999 YYYY(I)=1.2345 

The purpose is simply to shift the core address assignments. This revised 
program is executed again, and another error report is obtained. If a different 
set of errors is reported this time, it is highly probable that an out-of-bound 
dimension error exists. 

(4) When an out-of-bound error is suspected or confirmed, catch that 
error first and ignore other reported errors for the time being. Very probably, 
many secondary errors will be automatically corrected once the primary error is 
caught and corrected. 



*The second most probable error source is an uninitialized or unset variable in 
computations . 
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ON-LINE DEBUGGING BY CONDITIONAL COMPILING 



4.13 The D-Statement 

In the on-line debugging of a PORTRAN-10 program, we are mainly trying to 
test the program to see (1) if the flow logic goes according to the plan, and 
(2) how the computation of data is going. The first means a tracing process, 
and the second means to inspect the values of varialDles at different stages of 
their computations. Both of these may be realized by output statements inserted 
at strategic places with formats that indicate a tracing and/or data inspection. 
For example, use output formats as illustrated below: 

FORMAT {' I REACH POINT A; ALL IS FINE.') 
FORMATC I REACH POINT B; ALL IS WELL.') 
FORMAT (' AT POINT P; X-ARRAY DATA ARE: ', data- format ..,) 

But there are several problems. Once these statements are inserted, it 
will be difficult to distinguish them frcm the rest. Wlien debugging is 
completed, we want to remove these extra statements, and that will be a tedious 
and error-prone process. Very likely, new bugs would be created by such 
procedure. 

FORTRAN-10 allows a D-type statement that has a letter "D" in the first 
column. Let the program file name be FUSIAME.FOR. If the following command is 
g iven : 

EXECUTE FLANEM.FOR(I) 

vrtiere "(I)" is a canpiler switch to include EH-statements , the pr^ogram with all 
its regular and D-statements will be conpiled and executed. The same program, 
if compiled and executed without the (I) switch, will treat the D-statements as 
comments and therefore ignore them. 

After debugging is ccmpleted, delete the REL file, and recotipile without 
the (I) switch. 

Example ; We will again use the same TEST. FOR but add some 
D-statements as shown below: 

CALL NEWTONCI .,-11 . ,9. ,8. ,20. , 50, 3, ROOT) 
TYPE 10, ROOT 
10 FORMATC ROOT = ', F8.2) 
END 

SUBROUTINE NEWTON(A,B,C,D,E, ITER,NPLACE,ROOT) 

DIMENSION X(2) 

X(1 )=-B/A 

ERROR=10.**(-NPLACE) 

F1=FUNCP(A,B,C,D,E,X(1 )) 

IF(F1.EQ.0,)X(1 )=2,»X(1 ) 

DO 10 1=1, ITER 
D WRITE(6,9999) l,X(1) 
D9999 FORMATC/' ITERATI0N= ', I 3, ' X( 1 )= ',E12.4) 

X(2)=X(1 )-FUNC(A,B,C,D,E,X(10))/FUNCP(A,B,C,D,X(1 )) 
D WR1TE(6,9998) l,X(2) 
D9998 FORMATC AFTER ITERATION ',13, ' X(2)= ',E1 2.4) 
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IF(ABS((X(2)-X(1 ))/X(l )).LE. ERROR )GOTO 20 

X(1 )=X(2) 
1 CONT I NUE 

WRITE(6, 100) ITER 
100 FORMAT(/'*»* NO CONVERGENCE WITHIN', 15,' ITERATIONS.') 

RETURN 
20 R00T=X(2) 

RETURN 

END 

FUNCTION FUNC(A,B,C,D,E,X) 
D WRITE(6,9999) A,B,C,D,E,X 

D9999 FORMAT (' PARAMETERS PASSED INTO THE FUNC PROGRAM:'/ 
D 1 ' EQUATION COEFFICIENTS ARE:' /12X,5E12.4/ 
D 2 ' X(1 ) = ',E12.4) 

FUNC=A«X»»4+B*X»*3+C*X**2+D*X+E 
D WRITE (6, 9998) FUNC 
D9998 FORMAT (' RETURNED FROM FUNC, FUNC=' ,E1 2.4) 

RETURN 

END 
* 

FUNCTION FUNCP(A,B,C,D,X) 
D WRITE(6,9999) A,B,C,D,E,X 

D9999 FORMAT (• PARAMETERS PASSED INTO THE FUNCP PROGRAM:'/ 
D 1 ' EQUATION COEFFICIENTS ARE:' ,5E12.4/ 
D 2 ' X(l) = ',E12.4) 

FUNCP=4 . *h*X**3+3 . *B»X**2+2 . *C*X+D 
D WRITE (6, 9998) FUNCP 
D9998 FORMAT (' RETURNED FROM FUNCP, FUNCP=' ,E12.4) 

RETURN 

END 

Next, an EXECUTE command with the switch (I) is applied. Now a curious 
thing happens. The example program was ahxsrted during the regular run but it 
runs to a completion with the D-statements . As the EHstatements are merely 
output and format statements, suspiction should be raised here that the trouble 
is illegal data located out of bound. The terminal printout is included here 
along with some analysis: 

PARAMETERS PASSED INTO THE FUNCP PROGRAM: 

EQUATION COEFFICIENTS ARE: O.lOOOE+01 -0.1100E+02 0.9000E+01 0.8000E+01 

X(1 ) = 0.2000E+02 
RETURNED FROM FUNCP, FUNCP= 0.1917E+05 

ITERATION= 1 X(1)= 0.1100E+02 
PARAMETERS PASSED INTO THE FUNCP PROGRAM: 

EQUATION COEFFICIENTS ARE: 0.1000E+01 -0.1100E+02 0.9000E+01 0.8000E+01 

X(l) = 0.1100E+02 
RETURNED FROM FUNCP, FUNCP= 0.1537E+04 
PARAMETERS PASSED INTO THE FUNC PROGRAM: 

EQUATION COEFFICIENTS ARE: 

0.1000E+01 -0.1100E+02 0.9000E+01 0.8000E+01 0.2000E+02 

X(1 ) = 0.1596E-01 
RETURNED FROM FUNC, FUNC= 0.201 3E+02 
AFTER ITERATION 1 X(2)= 0.1099E+02 

ITERATION= 2 X(1 )= 0.1099E+02 
PARAMETERS PASSED INTO THE FUNCP PROGRAM: 

EQUATION COEFFICIENTS ARE: 0.1000E+01 -0.1100E+02 0.9000E+01 0.8000E+01 

X(1 ) = 0.1099E+02 
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RETURNED FROM FUNCP, FUNCP= 0.1527E+04 
PARAMETERS PASSED INTO THE FUNC PROGRAM: 

EQUATION COEFFICIENTS ARE: 

0.1000E+01 -O.llOOE+02 0.9000E+01 0.8000E+01 0.2000E+02 

X(1 ) = 0.1596E-01 
RETURNED FROM FUNC, FUNC= 0.201 3E+02 
AFTER ITERATION 2 X(2)= 0.1097E+02 

(SEVERAL MORE PAGES OF THIS) 

ROOT =0.00 



End of execution FOROTS 5B(1001) 
CPU time: 0.12 Elapsed time: 1.58 
EXIT 



From the analysis shown, the trouble is attributed to the fact that X(l) 
is passed into two subprograms FUNC and FUNCP as two different values! Armed 
with this information, the parameter lists of FUNC and FUNCP are examined, and 
the trouble can be identified quickly. 

Note that the debug run actually produced an incorrect result of 
RDOT=0.00! The kind of errors causing computer jobs abortion is actually the 
safe kind. The really dangerous kind is an error causing not obviously 
incorrect results. As the popular saying goes, "Garbage in; garbage out," or 
"GIGO," but beware of camouflaged garbage. 
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ON-LINE DEBUGGING BY TRACING AIDS 



Two subprograms are available in the FORTRAN-10 library for the tracing 
operations. One is to traceback at a specified point; the other is to trace the 
flow in general. They are now presented next. 



4.14 The TRACE Subprogram 

The TRACE subprogram may be used as a subroutine without a dummy argument 
or a function with a dummy argument, when this subprogram is called at one 
point in the program execution, a printout of traceback will be produced at the 
user's terminal. The TRACE program is also automatically invoked in response to 
a PAUSE 'T' statement. 

Exampl e ; Placing a TRACE call between Line #8 and #9 of the NEWTON 

subroutine as shown on the compiler listing of Section 4.11, the following 
printout was received on the terminal: 

TRACE. [415615] called from NEWTON+45[322] with no args 

NEWTON[255] called from MAIN-+4[161] with 8 args of type F,F,F,F,F,I,I,F 

(many other lines) 

Refer to Section 4.11 on how to read these tracings. 



4 . 15 The MSFLVL Subroutine 

The MSGLVL subroutine is another FORTRAN-10 library program v^iich does a 
dynamic tracing of subprogram calls and returns, and labeled statements. It can 
be used to trace an entire program or a portion of it. 

The format of the subroutine is: 

CALL MSGLVL (N) 

v\tiere N is defined as: 

N = 1 no tracing, used to turn off tracing. 

N = 2 print out only subprogram calls and returns 

N = 3 N=2 case plus all labeled statement tracings 

Thus, at a point in the program v^iere we want to start the tracing, we 
insert a statement "CALL MSGLVL (2)" or "CALL MSGLVL (3) ". Then at the point 
where we want to turn it off, we insert a statement "CALL MSGLVL (1)". 

Users of this routine should be warned that if this routine is called by 
a user's subroutine, the tracing is not automatically turned off upon the return 
from the subroutine. Thus the tracing may inadvertently extend beyond an 
intended range. 

After a program is prepared with MSGLVL subroutine calls in it, it should 
be executed with a "/TRACE" switch, i.e., a command of: 
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. EXECUTE FUStAME . FOR/TRACE 

Later, after debugging is ccmpleted and program is corrected. The MSGLVL call 
statements can be left in by recatipiling without the TRACE switch. (Do not 
forget to delete the old REL file first.) 

Example ; The NEWTON subroutine is revised to become the following: 

SUBROUTINE NEWTON(A,B,C,D,E, 1TER,NPL ACE, ROOT) 

DIMENSION X(2) 

CALL MSGLVL(3) !»»«Turn on Tracer 

1 X(1)=-B/A 

2 ERROR=10.**(-NPLACE) 

3 F1=FUNCP(A,B,C,D,E,X(1 )) 

4 IF(F1.EQ.0.)X(1 )=2.*X(1 ) 

CALL MSGLVL (1) !***Turn off tracer 

DO 10 1=1, ITER 

X(2)=X(1 )-FUNC(A,B,C,D,E,X(10))/FUNCP{A,B,C,D,X(1 )) 

IF(ABS((X(2)-X(1 ))/X(1 )).LE. ERROR) GOTO 20 

X(1 )=X(2) 
1 CONT I NUE 

WRITE(6,100)ITER 
100 FORMAT(/'»*** NO CONVERGENCE WITHIN ',15,' ITERATIONS.') 

RETURN 

20 R00T=X(2) 

. RETURN 

END 



Other program units, such as the main program, the function FUNC and 
FUNCP remain the same as those in Section 4.11. Upon execution by the command 
of "EXECUTE TEST/TRACE", the following printout was obtained: 

<1><2><3> 

Call to routine FUNCP from routine NEWTON 

Return to routine NEWTON from line 5 of routine FUNCP 

<4> 

etc. 



The statement labels are enclosed between angle brackets: <2> means 
Statement labeled "2" (not Line 2) , and <2>*d means Statanent labeled "2" 6 
times. The advantage of using this routine over TRACE is that the compiler 
listing is not needed to determine the line numbers in a program. 
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OSl-LINE DEBUGGING BY AN INTERACTIVE PROCESSOR 

4.16 The FORDDT Processor 

FORDDT is an interactive processor used to debug a FORTRAN program by 
controlling its execution. Using the symbols created by the compiler, FORDET 
has the following capabilities: 

(1) To examine and modify the data; 

(2) To examine, specify or modify a FORMAT; 

(3) To set breakpoints; 

(4) To trace the source program statement by statement. 

Before calling the FORDET debugger, you must prepare REL files that are 
compiled with the compiler debugging facilities, such as tracing, accommodations 
for breakpoints, dimension checks, etc. This must be done even if there are 
already compiled REL files for the programs (but without debugging features) . 
This is done by a monitor command: 

.COMPILE /COMPILE/DEBUG:ALL list 

\*iere "/COMPILE" and "/DEBUG" are global switches placed in front of the 
programs "list". This will force a new compiling with debugging facilities 
loaded. However, do not force a compiling to those programs that don't belong 
to you, such as the system library, IMSL, etc. Afterward, FORDDT may be called 
by: 

. DEBUG list , SYS : FORDDT 

where list is a complete list of files that are needed for execution. FORDET 
will respond with: 

STARTING FORTRAN DOT 
» 

^^^ere "»" is a prompting signal that FORDDT is ready to accept FORDDT commands. 
The details for the FORDDT may be found in P^pendix E of Reference 9. A basic 
set of the FORDDT commands is included here with explanation and examples. 

Certain prelimianry FORDCfT rules are first explained: 

(1) A FORDDT command consists of a keyword and optional parameter (s) . 

(2) Program data may be accessed by refering to their FORTRAN variable 
names. 

(3) General array specifications is NAME(S1,S2,. . . ,Sk) . Variation of 
this specification are: 

NAME the entire NAME array 

NAME (7) the 7th element in the NAME array 

NAME(K) A subscripted element 

NAME (3) -NAME (10) Elements in a specified range 
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(4) Standard numeric convention applies. 

(5) Statement number is represented by an unsigned integer, e.g., 100. 
The line number must be preceded by a pound sign{#) , e.g., #100. 

(6) FORDDT can specify numerical mode for data input/output by giving the 
"mode identifier." The mode identifier codes are defined as follows: 



Code 



Meaning 



Example 



A 


ASCII (left-justified) 


/LEFT/ 


C 


Complex 


(1,234,-6.543) 


D 


Double Precision 


123.4567890 


F 


Real 


1.2345 


I 


Integer 


1234 





Octal 


7777 


R 


RASCII (right-justified) 


\RIGHA 



4.17 Basic FORDDT Commands 



Of the eighteen commands available in the 
frequently used commands will be presented below: 



FORDDT, a subset of eleven 



Keyword Parameter 



Explanation 



OPEN name To open the named unit (subprogram) and allow all variables 

within that unit to be accessible to FORDDT. If name is 
omitted, it means to re-open the main progrcjm. When FORDDT 
is called, the main program is automatically opened. 
Later, vdien one open command is applied after a preceding 
one, the unit previously opened is automatically closed. 
Therefore, at any given time, not more than one program 
unit may be opened. 



Example 



Function 



.DEBUG TEST. FOR, 
» (command) 

»OPEN SUBl 
»OPEN 



SYS: FORDDT 
Main program opened for debugging 

Open subprogram SUBl; close main program. 
C^n main program again; close SUBl 



START 



To start your program at the main program entry point. 



MODE list To define the "mode identifiers", or the display formats, 
for succeeding TYPE commands of FORDDT, and list contains 
one or more of the mode identifier codes separated by 
commas. The mode identifier codes are those defined in 
Section 4.16. The default mode is the floating point 
format, and output will return to the default mode with a 
"MODE" command with no argument. 
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Example " Function 

»MODE F,F,I Set MODE for the next TYPE command. 

»TYPE A,B,K TVpe A,B,K per MODE defined before. 

»MODE Return to all floating point format. 

TYPE list To type out values of variables listed in the format 

defined by the last MODE command. "Print modifier" may be 
used to alter the format temporarily just for the current 
TYPE command. A print-modifier has a format of "/code" 
vAiere the "code" is a mode identifier. If a print-modifier 
is placed after a variable name, only that variable output 
format is altered temporarily. If a print-modifier is 
placed before a variable name, all variables in that TYPE 
command after the modifier are temporarily set except those 
with individual modifiers. See examples below: 

Example Function 

»MODE Reset MODE to default floating point. 

»TYPE A,B,C Type A,B,C in floating point. 

»TYPE A,B,C/I A,B as real, C in integer format 

»TYPE A, /I B,C A as real, B and C as integer format 

»TYPE /I A,B,C All in integer format 

»TYPE /I A,B,C/F,D/O,E/A,K(l)-K(10) 

A & B in integer, C as floating point, 
D in octal, and E in ASCII format, K(l) 
through K(10) inclusive in integer format 

ACCEPT name/mode value 

To modify the values of listed variable names, where: 

name = the name of the variable, array, array element, or 
array element range to be modified. If an array 
name is given without a subscript, the entire array 
will be modified. 

mode = format of modifying data. Use mode identifier code 
for MODE. 

value = new data for the variable 

Example : »AC.C.EPT A 1.23 

Function : Set A=1.23 (default MODE=floating point) 

Example : »ACCEPT B/C (1.2,0.3) 

Function ; Set B= (1.2, 0.3) B set in complex mode 

Example : »ACCEPT X(2)-X(9) 0.0 
Function ; Set X(2) through X(9) to 0. 

Example ; »ACCEPT X 0.0 
Function: Set the X-array to 0. 

Example ; »ACCEPT FLNAME/A/DONG 'SAMPLE.DAT' 
Function: Set FUsIAME=' SAMPLE. DAT' (2 words) 
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Example ; »ACCEPT 10 (1X,8F8.2) 

Function : Set the FORMAT labelled as Statement 10 to the 
given new form. Work only for changing an old 
FORMAT to another with equal or shorter field. 



GROUP n list To set up a string of text for input to a TYPE command, 
where: 

n = group number, 1 through 8. 
list = a string of TYPE statemnts to be calleS. 

Example : »GROUP 1 A,B,C,/I I,J,K 

Function : Store "A,B,C,/I I,J,K" as Group 1 data. Future 
output FORDDT commands for this group of data 
may be simplified into "TYPE /I" 

Example : »GROUP 1 

Function ; List Group 1 data names. 

Example : »GROUP 

Function: List all stored GROUP lists. 



PAUSE p 



To set a breakpoint at point "p" , where "p" is any label, 
line number, or sunroutine entry in your opened program 
unit. A maximum of ten breakpoints may be set at one time. 
Each PAU command can set only one breakpoint. When a pause 
is encountered, execution is suspended at that point and 
control is transferred to FORDDT. At that point, 
examination or modification of data can be made. 



Example 



Function 



»PAU 50 Set breakpoint at statement No. 50. 

»PAU #50 Set breakpoint at Line No. 50, 

»PAU #50 TYPING /2 

Set breakpoint at Line#50. When paused 
there, type out data group 2. At least 
one blank is required between "TYPING" 
and "/2" . 



COSITINUE n To ask the program to resume execution after a FORDDT 
pause, and the program will run until the nthi occurrence of 
the given pause or until a different pause is encountered. 
The default n is 1. 



REMOVE p 



To remove the pause at "p" frcxn the program set up by a 
previous pause command. If "p" is omitted, it will remove 



all pauses set up. 



WHAT 



STOP 



To display on the terminal the name of the currently 
program unit and any currently active pause settings. 



open 



To terminate the program execution, close 
return to the monitor . 



all files, and 
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4.18 A FORTOT Example 

The example started in Section 4.11 will again be used to illustrate the 
FOREOr us^e. The program listing by the program unit names is given below. 
Those statements that will be used as breakpoints are marked with check marks 

V". 

Program Unit MAIN. 

00001 CALL NEWTONd .,-11 .,9.,8.,20.,50,3,ROOT) 

00002 TYPE 10, ROOT 

00003 10 FORMAT (' ROOT = ', F8.2) 

00004 END 

Program Unit NEWTON : 



.<<^ 



J^<^^>' 



00001 * <0<^«/<»® 

00002 •'subroutine NEWT0N(A,B, CD, E, ITER, NPLACE, ROOT) ^^ J.> 

00003 DIMENSION X(2) ^f^ 0^** 

00004 X(1)=-B/A ^(0^^ 

00005 ERROR=10.*«(-NPLACE) yi^ &^^ ^\^^'^ 

00006 /F1=FUNCP(A,B,C,D,E,X(1)) J^<<i?'^% 

00007 IF(F1.EQ.0.)X(1 )=2.»X(1 ) \>^^t>''^ 

00008 DO 10 1=1, ITER -^"^ 

00009 X(2)=X(1 )-FUNC(A,B,C,D,E,X(10))/FUNCP(A,B,C,D,X(1 )) 

00010 IF(ABS((X(2)-X(1 ))/X(1 )).LE.ERR0R)G0T0 20 

00011 X(1 )=X(2) , ^,<. ^ e. , ^ 

0001 2 10 / CONT I NUE f*' ^ .^.-^ ex^ , ec^^ ^^ 

00013 WRITE(6, 100) ITER (U)"^"*' e'^'* "l 

00014 100 F0RMAT(/»«** NO CONVERGENCE WITHIN*, 15, ♦ ITERAT IONS. ♦ ) 

00015 RETURN 

00016 20 R00T=X(2) 

00017 RETURN 

00018 END 

Program Unit FUNC : 

00001 * ^ , (c pxA$S«^ 

00002 v^FUNCTION FUNC( A,B,C,D,E,X) iO ^^^ ^^^^ 

00003 FUNC=A*X**4+B»X*»3+C*X**2+D*X+E fn^'^"^ 

00004 RETURN 

00005 END 

Program Unit FUNCP ; ^sse<^, ^t 

00001 * /^ ^wect P^^ ^^1-^ 

00002 / FUNCTION FUNCP(A,B,C,D,X) na>'«'^ 

00003 FUNCP=4.*A»X»*3+3.*B*X*»2+2.*C*X+D Y 

00004 RETURN 

00005 END 



The placement of breakpoints is important. If a statement or a line is 
designated as a breakpoint by the PAUSE command, the program execution will 
pause before the execution of that line or statement. The breakpoints should 
be placed strategically at the following places: 
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(1) Subprogram entry points to check if parameters are being successfully 
passed ; 

(2) Just before returning to the calling programto see what kind of 
values are being passed back; 

(3) After an input step to see if input operation is successful; 

(4) Just before outputing a value if error report indicating a format 
overflow; 

(5) A sampling point in the DO-loop to see how iterations are going; 

(6) Place after a division to check if there is any divide-by-zero 
erorr; 

(7) Places you feel to be critical or suspect where errors are being 
generated . 

If a breakpoint is placed inside a DO-loop, be wary of large amount of FORDDT 
outputs. This can be circumvented by applying a FORDCT command "COSITINUE n" 
when ready to continue onto that breakpoint. This will allow the execution to 
repeat "ignore that breakpoint" for n times. 

The remainder of this section is a reproduction of the terminal printout 
with annotations. The user's typings are in italics, and suitable comments are 
in handwritings. 



DEBUG TEST. FOR/DEBUG: ALL, SYS: FORDDT J--- 0.-i^>' i^ FV/erSiPT -h 4&kua T&sr.pdiZ. 

FORTRAN 5A(621 ): TEST FOR ^^,^^ ^^,^ ^ ^,^^ ^^j^^^ 

MAIN OCTAL PROG SIZE=56 yoc, na^>■e. <^ r^x^j c, ^ 

NEWTON OCTAL PROG SIZE=420 '^e <=>ld ^^L. fi'le csf Te^r, 

FUNC OCTAL PROG SIZE=52 

FUNCP OCTAL PROG SIZE=56 

LINK: Loading 

[LNKDEB DDT execution] 

STARTING FORTRAN DDT 



6pe»-> f^ u"i<" N<2vA;r6Aj. Set breakpin-ti 
IXline vari^Wle a,f»\cjs 4- Q!^ 2. d}s sliowji^. 






>->OPEN NEWTON 

yyPAUSE n 

»PAUSE #6 TYPING /I ^ 
yy GROUP 1 A,B,C,D,E,X 
yy PAUSE 10 TYPING /2 

yy GROUP 2 X 

yyOPEN FUNC 

yyPAU #2 J 

yyOPEN FUNCP 

yyPAU n 

yy START 3^^ - g, -^ e<«:«.K£>^ a^ <Aebi^ 

PAUSE AT ROUTINE NEWTON 

ARGUMENTS ARE: __ 

1.000000 0^^ hVa-b pck.w.ct at e.v^•tva.r,ce pol^t df Nleo^*"^ . 

= -11.00000 (g : 'B.'^i-^e-te^ i/alues c^-'e prtntizJi. Ou.t '^^^'^•s.Mca.lL 

9.000000 if. ■ +t J p ' xT^ -^ 

= 8.000000 (J »-. tK<£ oMer '^ d:ra*ArtA.?.^ts , 

20.00000 CE .••' No vb.<-;<5.lole. name i^ <3;jei» -^ "these A*/sv. 
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50 
3 



= O.OOOOOOOE+00 
[IMPLICIT OPEN NEWTON] 
»CONTINVE 



CiTee) 
CKoor ) 






PAUSE AT L#6 IN NEWTON 



C 
D 
E 

X(1 ) 
X(2) 

»CONTINUE 



1 .000000 
-11 .00000 

9.000000 

8.000000 

20.00000 

11 .00000 
O.OOOOOOOE+00 



PAUSEW AT ROUTINE FUNCP 
ARGUMENTS ARE: 

1.000000 A 

= -11.00000 e 

9.000000 c 

8.000000 P 

20.00000 X. 

11.00000 ? 

[IMPLICIT OPEN FUNCPD 

»CONTINUE 



^FRSSRE Subscript range error on line 9 of NEWTON 
Subscript 1 of array X = 10 



KJzyrf- pause crf~ /'he -^6 ■ ^uhn^ich'c <s*.-/;z)^/- 
Tries^ are. dafc^. i^efacA (^Icif'-^a pOJ^CP 









NEWTON[7037] called from MAIN.+5[5732] with 8 args Af type F,F,F,F,F, I , I ,F 



PAUSE AT ROUTINE FUNC 


' 


ARGUMENTS ARE: 




1.000000 


h 


= -11.00000 


B 


9.000000 


c 


8.000000 


V 


= 20.00000 


e 


= -0.7939503E+32 


XO^ 



[IMPLICIT OPEN FUNC] 
»CONTINUE 



^FRSAPR Floating overflow at FUNC+1 7[7440] 

FUNC[7421] called from NEWT0N+12[71 51 ] ith 6 args cff type F,F,F,F,F,F 

NEWTON[7037] called from MAIN.+5[6732] with 8 args 






fro- 



of type F,F,F,F,F, I, l,F 



(more of similar message) 

PAUSE AT 10 IN NEWTON 
[IMPLICIT OPEN NEWTON] 



J 



X(l ) 



-0.1106965E+36 



Next pa^ise o^ S-khrv>ew+- U\kel io , cv 

O^- V^a CiaA 6-^ -j-i'rs't' loop. 



^U»^M 
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X(2) = -0.1106965E+36 ) 

»STOP Scf7se/es% iv qo antj jxKx-fker 

End of execution FOROTS 5B(1001) 

CPU time: 0.65 Elapsed time: 1:41.67 



No. of 


Error 


Errors 


Type 


9 


Floating overflow 



EXIT 



After inspecting the debugging printouts, two errors in the subprogram 
NEWTCN were found: 

(1) The argument "E" in line #6 should not be there; 

(2) In line #9, X(10) should be X(l) . 

After errors are identified, UPDATE editor is used to correct the error, 
and the program is run again. The terminal printout is shown below: 

.UPDATE TEST. FOR 

CALL I^JEWTONCI .,-11 . ,9. ,8. ,20. , 50. ,3, ROOT) 
> $AT/FUNCP (A^ B, C, D, E/; CHANGE/, E// 

F1=FUNCP(A,B,C,D,X(1 )) 
>$AT/X(lO)/j CHANGE/X(10)/X(1)/ 

X(2)=X(1 )-FUNC(A,B,C,D;E,X(1 ) )/FUNCP(A,B,C,D,X(l )) 
>$END 
2 blocks written on TEST. FORCl 1 5103,3205713 

.EXECUTE TEST. FOR 
FORTRAN 5A(621): TEST. FOR 
I^AIN. OCTAL PROG SIZE=53 
NEWTON CTAL PROG SIZE=210 
FUNC OCTAL PROG SIZE=52 

FUNCP OCTAL PROG DUZE=55 
LINK: Loading 
[LNKXCT TEST execution] 

ROOT = 10.0 

End of execution FOROTS 5B(1001) 
CPU time: 0.02 Elapsed time: 0.02 
EXIT 



Thus, the laborious effort of debugging finally pays off. 
MAY YOU CATCH ALL YOUR BUGS. 
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EXERCISE 



The instructor should select a programming exercise of moderate 
difficulty for a problem for vAiich the algorithm is well-understood by the 
class. Follow the procedure outlined below to the completion of a successful 
programming session: 

(1) Set up a flow chart specification of the problem. Check if it is 
correct. 

(2) Code the program according to the flow chart. 

(3) Generate a flow chart based on the code and using the program FORFLO. 
Compare the generated flow chart with the problem specification. If 
there is any discrepancy, correct the code. 

(4) Compile the program. From the compiler error list, correct all 
syntax errors and transcription errors not caught before. 

(5) Organize a code- inspection and walkthrough session for a critique, 
and correct the errors identified. 

(6) Run the program, using a test data set. If the run is not 
successful, debug on-line by any or combination of the on-line 
debugging techniques and aids covered in this chapter. 
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CHAPTER 5 
MODELING AND SIMULATION BY CSMP 



Modeling and simulation are important tasks in 
science and engineering. Instead of the event-type or 
discrete-type modeling and simulation, this chapter 
will deal with modeling and simulation of a continuous 
system. A high-order language simulation program will 
be presented: Continuous System Modeling Program 
(CSMP) . This program was originally developed for the 
IBM/360, and has since found wide acceptance in its 
application and adapted to many other computers 
including the DEC System-10,* 



INTRODUCTION 



5.1 Dynamic Modeling of Systems 

One of the most important tasks in the disciplines of applied sciences 
and technology, including engineering, is the study of an existing system by 
analyzing its characteristics or the study of a proposed system by its synthesis 
under a set of prescribed objectives. Under most circumstances, it is not 
possible or practical to isolate that system, to dismantle it, and to perform 
the study. Therefore, it is necessary to construct a model, and examine the 
model performance by subjecting it to varying internal and/or external 
conditions. 

In all areas of applied sciences, vrfiether they are the physical, life or 
social sciences, the tasks of modeling and simulation are important elements of 
their analytical studies. Although the fields of disciplines may vary widely, 
the task of modeling and simulation may be summarized by the block diagram shown 
in Figure 5.1. 

Beginning with the laws of nature (physics, chemistry, biology, etc.) and 
the laws of society (sociology, economics, law, etc.) , the behavior of a model 
under various conditions may be described with mathematical language. Such a 
description, under most cases, takes on the form of a set of mathematical 
equations. The equations may be Boolean logic, algebraic, transcendental, 



*Adaptation for the Pitt installation by Michael A. Matzek, Computer Center, 
University of Pittsburgh. 
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CSMP 



Natural 
Sciences 



Mathematics 



Parameter 
Ad iustments 



Readjustments 



Soc i a I 
Sciences 



Mode I 



Analytical 
So I ut i on 




Interpretation 

of 

Sol ut ion 



Does the solution 
satisfy a given 
set of restrictions 
or conditions? 



L 



yes 



( END j 



Figure 5,1 Modeling and Simulation in System Studies 



E)ynainic Modeling 187 

differential, integral, difference, or ccmbinations of these. The result is 
called a mathematical model . 

A solution of the model can be obtained by many different ways. Applied 
mathematicians and analytically inclined scientists and engineers have devoted 
to find analytical solutions, v^ere the solutions are preferably expressed in 
closed forms. Many engineering practitioners have found it convenient to 
develop, in addition to the analytical solutions, empirical ways of 
solution — ways that have no rigorous analytical ground but they work. Other 
people find that to them the most effective way is by experiments such as in the 
areas of physics, chemistry, metallurgy, etc. With the advent of digital 
computers, another way becomes practical, that is, by digital ccmputation . CSMP 
modeling and simulation falls into the last category. 

C»ice the solution is obtained, its interpretation and conclusions are 
then drawn. Concluded at this point is a process of study called 
System Analysis . 

When the system is analyzed with reference to a set of prescribed 
conditions or objectivess, one must further examine whether the result of the 
analysis satisfies these objectives. If not, adjustments of the model, either 
in its structure or in its parameter values or both, must be made. The process 
of solution is then repeated until the objectives are met. Concluded at this 
point is a process of systen study called System Synthesis or System Design . 

The mathematical description of many system processes encountered in 
engineering, scientific and societal problons is often made with respect to time 
as an independent variable. In such a description, the parameters, their 
changes and their rates of changes, etc., can be interpreted by aj^lying the 
basic laws of natural sciences and social sciences. Resultant models will 
describe the time behaviors of the systems, and hence they are called 
dynamic models . 

In most cases, the time behavior of a system may be described by an 
equation containing differential quantities, i.e., a differential equation. 
Consequently, facility in formulating differential equations and knowledge of 
how to obtain their solutions become the most important skills required in the 
system studies. 



5.2 Differential Equations 

When a differential equation is formulated fron a real system, more often 
than not, it cannot be solved unless simplifying assumptions are made. After 
these assumptions are made, the result may be obtained by rigorous mathematical 
methods. An alternative is to approximate the differential equation as a 
difference equation, which may then be solved by performing a numerical 
integration. This is where a computer ccxnes in. Although the result is only an 
approximation to the true solution of that equation, the error can be controlled 
and kept within a prescribed bound. Shown below are two examples of how the 
differetial equation model for a system may be formulated. 
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Example ; Consider the following RLC circuit. 

The voltage across each element is: 






v^^Ri 



(Ohm's Liaw) (1) 

(Lenz's Itaw) (2) 

(Faraday's Law) (3) 
Then, by Kirchoff s Law, we write: 



, di 



z;^ = - / idt 



di 
dt 



L ^ + Ri + ^ ! idt = 



(4) 
(5) 



Differentiating both sides, and letting de/dt=f(t) 

r d'^i , „ di , 1 . „,, , 



(6) 



The differential equation beccmes a circuit model, the solution of vrfnich will 
give the time-behavior of the circuit. 

The same circuit may be formulated into a model using the state variable 
approach. Suppose we choose "i" and "v " as the state variables. Then the 
equations (3) and (5) may be rewritten as: 



f!£ - 1 ■ 
dt " c ■^ 



di 
dt 



e R . 

L - I" 



(7) 
(8) 



These two simultaneous differential equations may be organized into a matrix 
form: 



(9) 



dv 1 

dt 







§1 


di 
dt . 




1 


R 
L , 





'"c ' 







• 




+ 






i 




e 

- L ■ 



Such a matrix differential equation is then referred to as a state-variable 
model of the circuit. 
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Example ; The following diagram represents a simplified version of a 
Pogo stick, or a landing gear of an aircraft. 



t^efer^nte jDo^i+io'-L. 



Consider the mass as a free body, and analyze 
the forces that act on it: 









Gravitational : 



/^ - Mg 



(10) 



Spring force: 



f = Kx 



(11) 



Damping force: 



^d ^ dt 



(12) 



or. 



Free Body 
Diagram 



M 



m 



Net force in the downward direction = f„-f„-f 



'd 



Thus, by Newton's Second Law: 

M^= Mg - Kx - D^ 



dt' 



dt 



d^x 
dt^ 



dx 



+ D ~: + K X = M g 



(13) 
(14) 



This is a mathematical model for the given mechanical system. Note the 
mathematical similarity between the models in the two examples given here. 



5.3 Preparation for Digital Computer Solution 

First, consider a first-order differential equation: 



^ + f^(x,t) t = f^(x,t) 



(15) 



where x is the dependent variable and t is the independent variable. 
Equation (15) may be reduced to a general form of: 



Hence , 



-^ = fg''^-'*^ ~ * fj^^^t) = f(Xyt) 

X = f f(x,t) dt 



(16) 



(17) 



If the initial condition is known (at t=0, x=xO) , then equation (17) may be 
rewritten as: 
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t 
X = x^+ /^ f(x,t) dt (18) 

Therefore, the solution of a first-order differential equation involves 
basically a numerical evaluation of an integral. Thus, depending on the method 
of numerical integration used, different methods of solution of differential 
equation may be derived. The users of CSMP will have options of choosing any 
one of the following methods of numerical integration: 

Fixed-step methods: Rectangular integration 
Trapezoidal integration 
Simpson's rule integration 
Mams (second order) integration 
4th order Runge-Kutta method, fixed interval 

Variable-step methods: 4th order Runge-Kutta method, variable step 
5th order Milne method 

The details of these methods are available in any standard numerical methods 
text. It is sufficient here to say that the numerical solution of a first-order 
differential equation is a highly developed and important field in numerical 
analysis. 

For the high-order equations, the general approach of their numerical 
solutions is to reduce each high-order equation to a set of simultaneous 
first-order equations. This can be illustrated by an example: 

Example : Let us again consider that example of a mechanical system: 

2 

dt dt ^ ^4) 



d^x _ ^ D dx K ,,Q, 



First, define a new set of dependent variables: 

J dx 
x^=x and .^ = - (or = ^l) 

Thus the equation (19) is now changed to two equations (20-21) 

dx^ 



1 _ 
dt "2 



= x^ 



(20) 



'^2 D K i2\\ 

The original second-order equation is now changed to a set of tv»o first-order 
equations. Iherefore, the first-order equation method of solution can now be 
applied. 
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This process of reducing a high-order differential equation to a set of 
first-order equations may be expanded to a general nth order equation. 

Let the nth order equation be expressed as: 



(n) 



= ffx "b x' x" x'" 



(n-l) 



(22) 



Note that the superscripts are orders of derivatives, not the powers. In the 
process of reducing a set of (n) first-order equations, the first (n-l) 
equations are simply new definitions of the derivatives. 



Define: 



dx-. 



dx, 
IF 



dx 



(n-l) 



dt 



and Equation (22) beccmes: 



(or, X = x') 



(or, X = x" ) 



r (n-l) , 

(or, X = X ) 



dx 
n 

dt 



= f(^^, t, x^, x^,..., x^) 



(23) 



Students of Circuit Theory, System Theory, Automatic Control System, etc., will 
recognize that this is exactly the same as the process of formulating the 
state-variable equations. Equations (23) now consist of a set of first-order 
equations and the first-order equation methods can now be applied. 



Integration of the set of equations (23) yields: 

x^ = I x^dt = X + fl x^dt 



X ^ = { X dt 



+ f X dt 



n 



x^ = ! f(x^,t,x^-x^,...,x^)dt = x^ + I f dt 



\ (24) 
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vAiere ^i are the initial ccxaitions of a;^ at t=0. Thus for each equation, 
one step'' of numerical integration is taken to get a new point of xi. When all 
of equations (24) have taken that single step, the sequence is repeated for the 
next increment. 

If the process of numerical integration can be written as a subprogram, 
it would require two parameters: the initial condition and the integrand 
function. Suppose such a subprogram is available and defined as: 

Y = INTGRLdCX) 

where IC = initial condition of Y, and X = integrand expression. Then the set 
of equations (24) may be written as: 



XI = I1SITGRL(X10, X2) 
X2 = INTGRL(X20, X3) 



XN = INTGRL(XNM1, F) 



> (25) 



The INTGRL is a CSMP library function. The high-order differential equations 
may be represented simply as a series of INTGRL function in CSMP language. 



5.4 CSMP as a High-Order Langua ge (HOL) 

While the digital canputer is a tremendously powerful tool in the studies 
of systems, the tasks of programming can be prohibitively tedious and expensive. 
In the design of programming languages, a set of hierarchical structure is 
established. In the increasing order of hierarchical structure, they are: 

1. Machine language 

2. Assembly language, such as MACRO-10 

3. Compiler language, such as FORTRAN and COBOL 

4. High-order language, such as CSMP, ECAP, CORNAP, etc. 

In this hierarchy, the programming efforts in each higher level will be 
considerably reduced, but the rigidity of programming is alsio considerably 
increased. Thus we are trading off machine utilization in faivor of human 
resource utilization. In the computer system software development, the machine 
utilization has overriding importance, so we would favor languages of a lower 
hierarchy level, such as the assembly language. Thus, the basic system 
softwares, such as the operating system, various language compilers, and utility 
routines, are written in assembly language. 

However, for applications v^ere human resource utilization may be more 
important than an efficient machine utilization, engineers and sicientists will 
use a compiler language or a high-order language to solve their problems. 

But FORTRAN programming can be very complicated too. In the numerical 

solution of differential equations, one could use FORTRAN to program the 

solution. But the effort would be monumental if we included many options, 
control of accuracy, selection of output formats, etc. 
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High-order languages are therefore designed to ease such problems in the 
area of special applications. CSMP (Continuous System Modeling Program) is one 
such language. 

CSMP was originally developed for the IBM System/360, but has since found 
wide acceptance. Modifications of the IBM versions became available for 
adaptation to other machines, including '" the DEC System-10. It is an 
application-oriented language that allows a problem to be prepared directly from 
either a block-diagram representation of the system or a set of ordinary 
differential equations. The language includes a basic set of functional blocks 
with vi^ich the components of a continuous system may be represented, and accepts 
application-oriented statements for defining the connections between these 
functional blocks. CSMP also accepts most FORTRAN statements, allowing the user 
to readily handle nonlinear and time-variant problems of considerable 
complexity. Both tabular and graphic output formats are available. 

A typical CSMP program contains both CSMP statements and FORTRAN 
statements; it will also contain both CSMP functions and the conventional 
FORTRAN functions. After the CSMP program is prepared, it is first translated 
entirely to a FORTRAN program. This in turn is compiled, loaded, and executed 
with all the called CSMP functions and FORTRAN functions from the library. 
However, all these steps of translation, compiling, loading and execution are 
"transparent" to the user. To him, a single step of submitting a CSMP program 
to the CSMP processor is all that is required. That is the major power of a 
high-order language. 
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A CSMP PRIMER 

5.5 Symbols, Constants, Operators, Functions and Labels 

(1) Symbols CSMP symbols follow the same FORTRAN rules with the 
following exceptions: 

A. All variables are real variables (even those bec|inning with 
I, J, K, etc.) . Integer variables require a special declaration using 
the "FIXED" statement of CSMP. 

B. Subscripted variables may not begin with the letter I, J,, K, L, M, or 
N. 

C. There is a group of CSMP-reserved names that should not be used by the 
user in a CSMP program. See page 66 of Reference 1. 

(2) Constants All numeric constants are considered to be real, 
regardless of vAiether a decimal point is used. Only integer variables have 
integer constants. Other than this point, the standard rules of FORTRAN numeric 
constants apply. Double precision constants are allowed in CSMP III, but not in 
CSMP II. 

(3) Operators The same standard rules of FORTRAN operators apply to 
CSMP, such as those for the operators +,-,*,/,**,=, and the use of 
parentheses. 

(4) Functions In addition to the standard FORTRAN library functions, 
such as SIN(X) and AIDG(X) , there is a group of 34 CSMP functions. This is one 
of the most powerful features of the CSMP program. Selected functions will be 
discussed in a later section. 

(5) Labels llie first word of a CSMP data or control statement is a 
label word that identifies the purpose of the statement. These labels will be 
explained later. 



5.6 Format of CSMP 

The following are those format rules of CSMP statements that are 
different fron those of standard FORTRAN: 

(1) A CSMP statanent may start anywhere within column 1 through 72. 
Statement materials outside column 72 will not be processed. A few specific 
label words must begin at colimn 1. These exceptions will be singled out as 
they occur. 

(2) Continuation of a line is done by 3 consecutive periods (...) at the 
end of a line. A character in column 6 does not mean continuation in CSMP as in 
FORTRAN. A maximum of 8 continuation lines (9, including the first statement) 
are allowed. 

Example : XDDOTl=COEFFl*XDOT2-K3UOtl*X2-COEFF*XDOTl- ..., 
QUOT2*X2 

Do not split a number or a variable name between a line and its continuation. 
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(3) A "*" character in colutin 1 means a comment line. 

(4) Blank lines are allowed but ignored in the translation. It is 
usually used to make a program easier to read. 



5.7 Structure of a CSMP Program 

Basically, a CSMP program can be divided into 3 segments: the INITIAL 
segment, the DYNAMIC segment, and the TERMINAL segment. 

(1) INITIAL segment This segment appears first in a CSMP program, 
and is used to define parameters, initial conditions, or calculations that need 
to be done only once. It is optional, and may not even be needed in a simple 
program. If it is used, there must be an INITIAL label line at the beginning of 
the segment. 

Example ; INITIAL 

PARAMETER R=50.0, L=1.25, C=0.25E-4 
INCON 10=0.0 
CCWSTANT PI=3. 14159 



(2) DYNAMIC segment This is the heart of a CSMP program, and is a 
required segment. It contains the system model equations. If an INITIAL 
segment is not specified, the DYNAMIC segment is autcsnatically incorporated, and 
no label is required. If an INITIAL segment is specified, the DYNAMIC segment 
must be headed with a line with a "DYNAMIC" label. 

(3) TERMINAL segment This is the last segment of a CSMP program for 
computations performed after the simulation is finished. Or, it may be used to 
adjust parameters and reset conditions after one run in order to get ready for 
another run of the same problem. 



5.8 SORT and NOSORT Sections 

One of the most important features of the CSMP program is its sorting 
capability. Here, "sorting" does not mean the usual way of sorting by numbers 
or letters. Frequently, modelling of a system results in a system of 
simultaneous differential equations that must be processed in a particular 
order. In EXDRTRAN programming, the order is sequenced by the way in v*iich the 
FORTRAN statements are arranged. In CSMP, we can delegate the responsibility of 
sequencing to CSMP by asking it to SORT. As a result, those calculations that 
will produce results needed in the later part of the iteration cycle will be 
done first. This then allows us to write the modeling equations without concern 
for their sequence. Therefore, the SORT capability of CSMP makes the solution 
of simultaneous differential equation by CSMP a virtual parallel operation. 

On the other hand, there are ccxnputation that must be executed in the 
exact order specified, such as a FORTRAN conditional logic (IF) statement or a 
branching (GO TO) statement. They should be specified as NOSORT so that the 
given fixed order will not be disturbed. 
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The following types of statements should be placed in a NOSORT section: 

(1) Conditional logic (the IF statement) 

(2) Branching (any type of GOTO) statement 

(3) Implicit arithmetic statement, such as X = X+1.0 

(4) WRITE and FORMAT statements 

The following SORT rules apply to the default conditions: 

(1) INITIAL and DYNAMIC segments: If not labeled by NOSORT, the section 
is automatically regarded as SORT. 

(2) TERMINAL segment: If not labeled by SORT, the section is 
automatically regarded as NOSORT. 



CSMP STATEMENTS 

There are three types of CSMP statements: Structure, Data, and Control 
Statements. A structure statement describes a functional relationship between 
the variables of the program. A collection of structure statements defines the 
system being simulated. A data statement assigns values to a variable. A 
control statement controls the operations and the quantities associated with the 
program, such as the step size, the print increment, the selection of methods, 
etc. These statement are explained below. 



5.9 Structure Statements 



A structure statement in CSMP is written in the form of: 



VARIABLE = EXPRESSICW 

where the "EXPRESSI(»J" follows the general rules of FORTRAN assignment 
statements. An expression may be simply a constant, another variable, a 
function, or a ccrobination of these linked by arithmetic operators. 

One special feature is the CSMP functions - they are the CSMP library 
functions available in addition to the standard FORTRAN functions. A complete 
list of CSMP functions are listed on pp. 9-16 of Reference 1. Tatdes 5.1A and 
5. IB contain those more ccanmonly used: 
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Name 



CSMP Function Form 



Function 



Integrator 



Y = INTGRLdCX) 



Y = IC + / X dt 



IC = Initial condition; a constant or variable, but not 

an expresssion. 
X = integrand; a constant, a variable or an expression, 

Laplace form: 2 



Der I vat I ve 



Y = DERIVdCX) 



Y = dX/dt 



IC = Initial condition of derivative, or X(0) 
Laplace form: s 



Delay 



Y = DELAY(N,P,X) 

N=number of sample points 



Laplace form: e 



■P3 



Real Pole 



Y = REALPL(IC,P,X) 

IC = initial condition 



'<(f^^ Y(t)=X(t-P),t>P 
Y(t)=0 t<P 



O P 



Solution of: P^+ Y = X 



Laplace form: 



+ 1 



Lead-Lag 



Y = LEDLAG(P1,P2,X) 



Laplace form: I?!-}? '^ ^ 
(P2)s + 1 



Complex Pole; Y = CMPXPI ( IC1 , IC2,P1 ,P2,X) 



Solution of: PSdt^^ - ^^ dt +^ 



Solution of: 

j^ + 2(P1)(P2)^ +(P2)^Y = X 



Laplace form: l/(s + 2(Pl)*(P2)*s + P2'') 



Table 5.1A Selected CSMP Library Functions I 
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Name 



CSMP Function Form 



Function 



STEP 



Y = STEP(P) 

= unit step at P 



RAMP 



Y = RAMP(P) 

= unit ramp at P 




IMPULSE 



Y = IMPULS(P1,P2) 



'±t 



PULSE 



SINE 



Arbitrary 

Function 

Generation 



Y = PULSE(P,X) 

= unit height pulse 
triggered at time P 



k- 



Y = SINE(P1,P2,P3) 

P1=delay, seconds 
P2=angular frequency, 

radian/second 
P3=phase shl ft, radians 




Y = AFGEN(FUNC,X) 

(Linear Interpolation 
between points) 

Y = NLFGEN(FUNC,X) 

(Quadratic interpola- 
tion between points) 

X = independent variable 
FUNC=f unction name 



(VO 



l^^-^0 






Table 5. IB Selected CSMP Library Functions II 



Much of the CSMP versatility is attributed to two major factors. One is 
the specially designed CSMP library functions and statements. The other is the 
SORT and ^DSOR^ capabilities. The following are examples of how to write 
specific CSMP functions: 
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(1) INTGRL function 

The INTGRL function, among all CSMP functions, is certainly one of the 
most frequently used functions. The format: 

Y = INTGRL(IC,X) 

represents a differential equation model of ^ = ^j so that Y = IC + f Xdt 

o 

Example ; Model the equation -jt = v , with initial condition x{0)=XO. 

CSMP Statement: X = INTGRL (XO,V) 

Example : Model the simultaneous differential equations: 

dvl ^ p2 - vl 

^^ ~ Initial conditions: vl(0)=1.0 

dv2 _,. . v2(0)=-2.0 

The CSMP statements are: 

VI = INTGRL(1.0,V2-V1) 

V2 = IOTGRL(-2.0,4.0*V1^IME) 



Example : Although the lOTGRL function follows the format of any 
standard FORTRAN library function, it has one restriction: The function must be 
placed at the right-most end of a statement. 

Incorrect: VI = INTGRL (1.0,V2-V1) + 4.0*V2 
Correct: VI = 4.0*V2 + INTGRL(1.0,V2-V1) 

As a result, one CSMP statement may not contain more than one INTGRL function. 
They must be broken into several statements. 

Incorrect: FUNC = INTGRL (2. 3, VI) + INTGRL (-0. 9, V1-V2) 

Correct: FUNCl = INTGRL(2.3,Vl) 

FUNC = FtNCl + INTGRL (-0. 9, V1-V2) 
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(2) STEP function 

This represents a frequently used signal in finding the transient 
response of a system. The unit step function has an amplitude of 1. The 
amplitude of a desired step function may be set by a multiplier. The multiplier 
may be a constant, and in that case, the resulting function is a step function 
of amplitude specified. The multipler may be a time-varying function or 
expression, and in that case, the unit step function serves as a "switch" to 
turn on a time-varying function. 



Examples ; 
Y 



Y = 10.0 * STEP(1.5) 



/,r 4--r 



Single-shot multivibrator: 

Y = 10.0* (STEP (1.5) -STEP (4. 5)) 




Single-shot sinusoidal: 

Y = 5,0*PULSE(2.0,0.0)*SINE(0.0, 
2.0,0.0) 



Y = 5.0 (STEP (0.0) -STEP (3. 14159)) 
*SINE(0, 0,2. 0,0.0) 



(3) IMPULS and PULSE functions 

These two functions are often used together to produce a pulse train. 
See example below: 

Example : Generation of a pulse train, 2 pulses per second, pulse width 
0.1 second. Wave form is shown below: 



n 



O 01 OS 6-6 1.0 I.I /.$■ I.i 

Y = PULSE (0.1, IiyiPULS(0,0, 0.5)) 



pulse 

width 



spacing between pulses 

instant when the first 

pulse is triggered 
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Example ; 



A square wave generator 
Y = 2.0*PULSE(0,5,IMPULS(0.0,1.0))-1.0 




A triangular wave generator: 

Let the pulse output of the last . 
example be P. Then, 

P = 2.0*PULSE(0.5,IMPULS(0.0,1.0))-1.0 

Y = 4.0*(-1.0+INTGRL{0.0,Y)) 
(Question: Why 4,0?) 



5.10 Data Statements 

Data statements are those that assign numeric constants to variables in 
preparation to begin a CSMP run. Therefore, they are likely to appear in the 
INITIAL segment. 

The format of a data statement begins with a label, followed by the 
assignments of numeric constants to certain variables. 



INCOSI 



To define variables that are used as initial conditions. 
Example ; INCON X0=2.5, VQ=-4.56 



PARAMETER To define values of parameters that may be changed for different 
runs of simulation. 
Example : PARAMETER Vr=160.0, JK=1. 5 

Multiple parameter definitions may be written for multiple runs: 
Example ; PARAMETER VT= (160. ,161. ,162. ,163.) , JK=1.5 
or, PARAMETER VT= (160., 3*1.) , JK=1.5 

These last two statements are equivalent. Note the repeat 
constant "3" must be written without a decimal point. 
Specified number of runs will be made for everything up to 
the statement of END. Maximum allowed; 50 runs, and one 
multiple-PARAMETER statement per sequence. 

CONSTANT To define values of variables that do not change values. 
Example ; CONSTANT PI=3.14159,HERTZ=60.0 

FUNCTION To define data points (in pairs of coordinates) of an arbitrary 
function. This is used in conjunction with either the 
function AFGEN or NLFGEN. 

Example ; FUNCTION FOT=(0.,0.) ,(.10,2.5) ,(2.0,-3.1) ,... 
(3.0,5.6), (4.0,3.2) 



Y = AFGEN (FOT, TIME) 
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CSMP treats the labels INCOJ, PARAMETER, CONSTANT the same way, and therefore 
they are interchangeable. However, separating them for their proper purposes 
would add to our clarity of program, and less likely to be misunderstood later. 



5.11 Control Statements 



These statements specify the translation, execution or output of the 
simulation. For example, one may use these statements to specify how large 
should be each increment in the iteration, in the print-plot diagrctn, or which 
method of solution should be used. In general, these statements may be mixed 
with the structure and data statements, and may appear in any order. Except for 
ENDJOB, COMMOSI and ENDDATA statements that must begin at column 1, the 
statements may start at any column. There are three kinds of control 
Statements : 



(1) Translational control statements 



INITIAL 



DYNAMIC 



A line with only the label INITIAL in it. 
the beginning of the INITIAL segment. 



This statement marks 



This label marks the beginning of the DYNAMIC 
segment is terminated by a TERMINAL label. 



segment. This 



TERMINAL This label marks the end of the DYNAMIC segment and the beginning 
of the TERMINAL segment. The TERMINAL segment is terminated by 
the first END or CONTINUE statement. 



END 



The END statement marks the end of a simulation rim. It will 
then allow more control statements to start a nev\? run. If the 
END statement is followed by a STOP statement, then simulation 
runs are terminated. When a new simulation run is started by 
statements after the END statement, the independent variable TIME 
is reset to zero, and all initial conditions are reset. 



CONTINUE If a new run of simulation is to continue on the TIME-scale 
rather than reset it to zero, then a CONTINUE statement should be 
used instead of an END statement. Be careful to distinguish 
between a CONTINUE statement in CSMP and a CONTINUIC statement in 
FORTRAN. Since a CONTINUE in FORTRAN is often used to terminate 
a DO-loop, it is always better to label a FOl^TRAN CONTINUE 
statement with a number. 



STOP 



An END followed by a STOP statement marks the 
simulation and no new run is to be initiated. 



termination of 



ENDJOB 



This is the physical end of a CSMP package, 
column 1. 



It must begin at 



RENAME The standard name for the CSMP independent variable is TIME, and 
many reserved CSMP names are time-related names, such as DELT, 
EEIMIN, FINTIM, PRDEL, and OOTDEL. Often, the independent 
variable for a simulation problem is not time. For example, in a 
beam deflection problem, the independent variable may be the 
linear displaconent X. The names for the independent variable 
may be changed frcm TIME to X by "RENAME TIME = X". Then all 
reference to the independent variable TIME will be renamed to 
those with reference to X. 
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FIXED This label defines the listed variables on that line as integer 
variables. Without this statement, all CSMP variables are 
considered as real variables, including those beginning with a 
letter I, J, K, L, M Or N. 
Example ; FIXED N,JOB 

CCMMON The statement contains just the label, beginning frcxti column 1. 
This statement will make the values assigned for TIME, DELT, 
CEIMIN, FINTIM, PRDEL and OOTDEL, and the values of those 
variables listed on PARAMETER, INCON, and COSISTANT lines 
available as a COMMON block available for any user-supplied 
FORTRAN subroutines. 

PROCEDURE This statement leads off an entity of programs in the DYNAMIC 
segment that serves as a user-defined subprogram. Its format is 
given in the following example: 



PROCEDURE OUTl ,0UT2=FUNC ( INI , IN2 , IN3 , IN4) 



Label 



Output 
variables 



K — Input varaibles 

Arbitrary function name, 
- required but ignored 



MACRO 



Listing the output variables is for the purpose of making them 

available later for PRINT or PRTPLOT statements. Variables not 

defined as output variables in a PROCEDURE statement may be used 

for later processing, but they will be unavailable for print or 

print-plot purposes. 

The PROCEDURE statement is then followed by FORTRAN or CSMP 

statements, or their ccmbinations. 

The termination of a PROCEDURE is marked by a line with the label 

of ENDPRO. 

The PROCEDURE section may he placed anywhere in the DYNAMIC 

segment, and SORT command will place the subprogram at the place 

in the order. But the internal sequence of the PROCEDURE 

subrpogram will not be sorted, and they will be executed in the 

exact order as they are given. As a result, full extent of 

FORTRAN and CSMP statements, including FORTRAN logic and 

branching statements, may be used. 

Note: When FORTRAN and CSMP statements appear together in a 

PROCEDURE, the CSMP continuation rule (3 periods ...) applies for 

continuing a statement. 

Line with the label MACRO will preceed a MACRO function, which 
has the following format: 
MACRO X,Y = RECT(RNO,THETA) 



— - Input dummy variable 
- " MACRO function name 

— Output dummy variables 



The body of the MACRO for this example, and its termination 

are: 

X = RHO * COS(THETA) 

Y = RNO * SIN{THETA) 



line 



ENDMAC 
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A ^4ACR0 must be placed at the beginning of the CSMP program ahead 
of any structure statement in the INITIAL or DYNAMIC segment. 
Once a MACBD function is so defined, it may be referenced an 
unlimited number of times in the program. The MACRO may contain 
FORTRAN or CSMP statements, but it should not contain any FORTRAN 
logical, branching, or I/O statements, nor should it contain any 
CSMP data and control statements. 

SORT and In the processing of a CSMP program, calculations of many depen- 
NOSORT dent variables are done with respect to the same independent 
variable, such as at the same instant of TIME. Such calculations 
are referred to as "parallel calculations". In any assignment 
statements, however, the righthand side cannot be processed until 
all the current values of the variables of the righthand side are 
known. This implies that these structural statements must be 
sequenced in a particular order. This ordering can be done 
automatically by the CSMP translator, if a label of SORT precedes 
the statements. 

On the other hand, certain statements, such as the FORTRAN 
branching, logical decision and I/O statements must be executed 
in the exact order written. A NOSORT label preceding the 
statements will suppress the SORT algorithm for this group. 



(2) Execution control statements 



TIMER The TIMER label is followed on the same line by various increment 
assignments. These increments have reserved names and default 
values: 



Name 



Meaning 



Default Value 



DELT Increment for the DELT = 7^ MIN(PRDEL,OUTDEL) 
independent variable. 

It is a good practice to 
always specify DELT. 



DELMIN 



Two methods, MILNE and RKS, use adjustable steps. 
Simulation will halt when: 



Adjusted DELT < DEmiN 



FINTIM Max value of inde- 
pendent variable 
for the simulation 
run. 



FINTIM=0 if it is not spe- 
cified, and simulation will 
not even get started. 
Therefore, FINTIM should 
not be omitted. 



PRDEL 



Print output 
increment 



PRDEL=OOTDEL if OUTDEL 

is given. 
PRDEL=FINTIM/100 if OUTDEL 

is not also given. 
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OUTDEL 



Example ; 
Function: 



Print-plot output 
increment 



OUTDEL=PRDEL if PRDEL is 

g iven . 
OOTDEL=FINTIM/100 if PRDEL 

is not given also. 



TIMER DELT=0.1, PRDEL=0,5, FINriM=10.0 
Specify in the simulation iteration that each 
increment of TIME should be 0.1 second. In the 
printout table, increment of output is ) .5. 
Simulation to be terminated vAien 10.0 seconds on the 
TIME scale is reached. 



FINISH This is a label containing terminating logic conditions to 

supplenent the FINTIM specification in the TIMER statement. 

Example ; TIMER FINTIM =10.0 

FINISH VEL = 1000.0, HEIGHT = YMAX 

Function: During the simualtion run, the sign of (VEL-1000.0) 
and the sign of (HEIGHT-YMAX) is monitored at the end 
of each iteration. Simulation will be terminated 
when either of the three conditions is reached: 
reversal of signs of (FINTIM-10.) , (VEL-1000.0), or 
(HEIGHT-YMAX) . 



RELERR These two labels respectively specify the relative and the 

ABSERR absolute error bounds in the RKS and the MILNE methods. 

Example ; RELERR VEL = l.OE-5 

Function ; This statement sets the relative error bound at 
.00001. When the relative error of VEL is lower than 
the bound, the step is adjusted, and the iteration 
takes steps of bigger size. These labels are only 
applicable to RKS and MILNE mehtods where iteration 
steps are adjustable. 

METHOD This label followed by any one of the following seven words 

specifies the method of numerical integration. The default 
method is RKS. 



ADAMS 
CENTRAL 



MILNE 



RECT 
RKS 



SIMP 
TRAPZ 



Second-order Adams method 

A dummy routine that may be substituted by a 

user-supplied subroutine for integration. 

Variable- step, fifth-order, predictor-corrector 

MILNE method 

Rectangular method of integration 

Fourth-order Runge-Kutta method with fixed 

integration interval. 

Integration by Simpson's rule 

Integration by trapezoidal rule 



Example : 



METHOD ADAMS 
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(3) Output Control Statements 

In the following statements, the arguments for the labels are given in 
italics. The meaning of the arguments are: 

list = a list of variables 

str-ing = a string of alphanumeric characters 

label = a CSMP label 



TITLE string To print out the string as the title of each page of the 

print output. No continuation of line is allowed beyond 
one line. 



lABEL string 
RANGE list 
PRINT list 



PRTPLOT list 
PRTPLT 



To print out the string as the title of each page of the 
printplot output. No continuation of line allowed. 

To print out the values of listed variables at minimum 
and maximum values of the independent variables. 



To print (tabulated) 
independent variable. 



listed variables versus the 



To produce plots by printer for the listed variables 
versus the independent variable. 

The PRTPLOT statement is certainly the most frequently 
used output statement. There are a number of variations 
on how the listed variables may be given to vary the 
style of the plot. They are illustrated by examples 
below: 



Example ; 
Function: 



Example ; 
Function: 



Example : 
Function: 



Example ; 
Function: 



PRTPLOT X,Y,Z 

To produce 3 printer-plots: X versus TIME, 
Y versus TIME, and Z versus TIME. (3 
separate plots) 

PRTPLOT X(Y,Z) 

To produce 1 plot of X versus TIME, with 
values of Y and Z printed to the right of 
the plot as a table. 

PRTPLOT X(-1.0,1.0,Y,Z) 

Same as X(Y,Z) except with X-plot clipped at 

lower bound and upper bound of -1.0 and +1.0 

respectively. 



PRTPLOT X(-1.0,,Y,Z) 

Same as X(Y,Z) except with the 

clipped at a lower bound of -1.0. 



Example : PRTPLOT X(,1.0,Y,Z) 
Function : Same as X(Y,Z) except with the 
clipped at an upper bound of +1.0. 



X-plot 



X-plot 



PREPARE list To prepare data for a X-Y plotter. 

RESET label To reset listed labels that control the 

outputs, or increments of iterations. 



increments of 
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RUNNING CSMP AT PITT 



5.12 CSMP Job Preparation 

CSMP is one of the high-order languages, in vrtiich the language primitives 
are at a high level of sophistication. In the execution of such a program, the 
general approach is to translate it successively dovm into a lower order 
language by translators, compilers, assemblers, and finally down to the machine 
language level for machine execution. Since FORTRAN compiler and assembler 
already exist, it is naturally expedient to design a high-level language that 
its associated translator would have the responsibility of only translating the 
high-level program to the level of FORTRAN. From that point on, the existing 
compiling-assembling mechanism can take over. 

When a CSMP program is accepted by the CSMP processor , the processor 
first builds a FORTRAN subroutine named UPDATE. TMP and a data file in your disk. 
In generating the UPDATE. TMP* file, the processor accomplishes three major 
tasks: 

(1) The statements in the SORT section are placed in the proper order. 

(2) The proper transfer of control for the various segments and sections 
is established. 

(3) CCMMON statements are established to make the proper variables 
available between UPDATE and the CSMP modules. 

After that, the FORTRAN compiler-loader takes over to build an execution 
file in the standard way, and control is then passed over to the main program or 
the calling program. 

At the University of Pittsburgh, only CSMP II has been implonented on the 
DEC-10, and certain CSMP utilities are yet to be completed. To run a CSMP 
program on the Pitt DEC System-10, a minimum of 26K core is required, and more 
for larger programs. Therefore, CSMP programs can only be run as a batch job 
unless the user has a sufficently large time-sharing core allocation. 

However, this does not mean that a CSMP job cannot be run on a terminal. 
As will be explained next, a CSMP batch job may be either sutmitted in cards at 
a card reader , or submitted throught a stored file from a terminal , 

Thus, there are three common ways of running a CSMP program and they are: 

(1) Card input with a CSMP deck, 

(2) Card input a stored CSMP file, 

(3) Terminal input with a stored CSMP file. Their preparations are 
outlined below: 



*It is named with a TMP (for "temporary") extension so that it may be easily 
deleted later without affecting your other FORTRAN files in the disk. 
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(1) Card input, with a deck of CSMP prfogram cards 

$JOB card Prepare a card deck with a sequence order 

$PASSWORD card shown here. Prepare the CSMP program also 
$CSMP in cards. Submit these cards in the usual 

manner through a card reader . 
(CSMP deck) 

$EOD 
$EOJ 

(2) Card input, with stored CSMP program 

$JOB card Store a prepared CSMP program on disk, and 

$PASSWORD card name it, for example, as XYZ.CSM. 

•R CSMP Prepare a card deck as shown, and submit 

*XYZ.CSM the job at a card reader. 

$EOJ 

(3) To run a CSMP batch job at a terminal 

Prepare two files and store them on disk. One is the CSMP program file 
and name it as, for example, XiJZ.CSM. The other is a control file, and name it 
as, for example, ABCCTL. The control file contains the following lines: 

$JOB line .... (See discussion below) 

.R CSMP 

*XYZ.CSM 

$EOJ 

If it is desirable to capture the output data for such purpose as 
editing, multiple copy printing, or preparing for plotter output, use the 
following control file: 

$JOB line 

.ASSIGN DSK 6 
.R CSMP 
*XYZ.CSM 
$EOJ 

After the execution of the program, the CSMP output will be captured as 
FOR06.DAT, and no printer output is produced, unless later the user applies the 
QUEUE command, such as: 

. QUEUE FOR06 . DAT/COPIES : 3/FILE : FORT 

The last switch /FILE is needed in order to handle the FORTRAN printer-control 
characters on the file. 

Whether to sutmit a CSMP job fron a card reader or fran a terminal , the 
$JOB card should be specified in this manner : 

(1) Make a request for core allocation for at least 26K. Liarger program 
will require more. 
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(2) Make a request for CPU time allowance- of 2 minutes. The standard 
allowance is 30 seconds, 

(3) Specify the RJE station v*iere the output is to be produced. 

(4) Specify page limit large enough for the output. 
Example ; 

$JOB EXER4 [115027, 320571]/CORE:26K/TI^4E: 2: 00/IOC:10/PAGES:50 

5.13 CSMP Job Execution 

For CSMP batch jobs in cards, just read in cards prepared as described in 
Section 5.12. Execution will take place when the batch job is executed, and 
output is produced in the usual way. 

If the CSMP jobs are subnitted at the terminal, use OPRSTK command to 
submit the job. (See also Chapter 7) Thus, at the terminal, issue a 
monitor command: 

.OPRSTK name 

as log as a control file has previously been set up and named as NAME.CTL. 

If a user has a time-sharing core allocation of 26K or more, he can run 
the CSMP job on the time-sharing system by issuing a command at the terminal: 

• R CSMP 

When a prompt symbol "*" appears, give the name of the stored CSMP file. In 
this case, the output will be produced on the user's terminal, unless a monitor 
coiiBtiand of ".ASSIGN DSK 6" has been previously given. In the latter case, the 
output will be stored as FOR06.DAT. 



5.14 Other Modeling and Simulation Languages 

CSMP is a simulation language mainly for continuous system simulation by 
solving dynamic model formulated in terms of a set of ordinary or partial 
differential equations. There are other high-order languages that accomplish a 
similar purpose, and some of these languages are available for the DEC-10 
machine. Presentations of these languages are outside the scope of this book. 
Therefore, they will only be listed as references: 

(1) Analog-Computer Emulators These are languages emulating the 
simulations formulated for analog computers. They were once very popular in the 
1960 's when analog computers were still heavily depended on for continuous 
system simulation. The emulator MIDAS is one typical example. They are not in 
general use now. 

(2) Simulation Language mainly for the solution of ordinary differential 
equations . 

ASCL Initial-value problem solver, run on UNIVAC 1100 machine. 

CSSL Continuous System Simulation Language, developed by the control 
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Data Cocportion for CDC 6600 machine. 

DAREP Differential Analyzer Replacement - Portable, University of 
Arizona. Coded in FORTRAN except a few machine dependent 
routines. Available for K)P-9, DEC-10, IBM/360, and CDC6600 
machines . 

EASY A dynamic analysis language that provides both modular modeling 
and modular simulation. Written in FORERAN and run on CDC 
machines. Versions for DEC and IBM are being developed. 

DYNAMO A language developed by the Industrial Dynamics Group at MIT. 

In spite of very crude method of differential equation solution 
(Euler ' s method) , this language has been very popular among 
social scientists because of its simplicity. This language is 
available at Pitt, 

MIMIC CDC-developed language using 4th order Runge-Kutta method with 
variable step-size. Rigid coding requirement but inexpensive 
to run. 

PROSE A simulation language available on the Control Data Cybernet. 
It can handle discrete, continuous, or mixed simulation 
problems. 



(3) Simulation Language mainly for the solution of 
equations . 



partial differential 



PDEL Linear or nonlinear elliptic and parabolic partial differential 
equations in one to three-space dimensions, and hyperbolic 
equations in one-dimensional space. 

lEANS Solution for elliptic, parabolic, or hyperbolic IDE in one- to 
three-dimensional spaces and in orthogonal, cylindrical, or 
spherical coordinate systems. 



OSS 



Similar to LEANS except for hyperbolic equations, 
solutions use different methods. 



Some of the 



EDLAN System of parabolic ICE and mainly used in meteorology. 



There is also a group of HOL simulation language for d iscrete system 
simulation. Among them are SIMSCRIPT, GASP, CSL, SIMULA, and ^kSPOL. Some of 
them are supported at Pitt. However, they are outside the scope of this book. 
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5.15 CSMP Exeroples 

Several examples will be given here to illustrate the applications and 
procedures of CSMP simulation. 

Example 1 

A typical DC power supply is based on a full-wave rectified sine wave 
connected to a RC-network as a filter. CSie such circuit is shown below: 



ivy\.,. 



1 

-VVAM/V- 






^3 

-WvVW- 



Let V], V2 and Vo be the voltages across the capacitors C] , C2f and C3 
respectively. Let i], 12, and 13 be the respective capacitor current. 

For a particular case study, we assume the following parameters: 



Rl=10.5 ohms, R2=3.5 ohms, R3=100.4 ohms 

Cl=45 mfds, C2=33 mfds, C3=202 mfds 

Initital conditions: V10=0, V20=0, V30=0 

Input: full-wave rectified sine wave, 1000 Hz with 5-volt peak 



The problem analysis and modeling formulation is shown on the next page. 



Capacitor currents : 



dvp 
i? = Cp dt 



^3 S <3t 



By Kirchoff's Law of Voltage: 
V2 = Rsia + V3 
Vi = R2 (i2 + 13) + V2 
e = R^d^ + i^ + 13) + V^ 



Change to integral form : 
V2 



'1 
^2 



' 13 

J ?edt 



13 = (V2 - V3)/R3 



i„ = (V^ - V^ - R2i3)/R2 



i, = (e-v^-R,i2-Rii3)/R3_ 



Their CSMP statements ; 
VI = INTGRL(V10,I1/C1) 
V2 = INrGRL(V20,I2/C2) 
V3 = INTGRL(V30,I3/C3) 

13 = (V2-V3)/R3 

12 = (V1-V2-R2*I3)/R2 

II = (E-V1-R1*I2-R1*I3)/R1 



These are six equations for the circuit model, and six dependent variables are three capacitor 
currents and three capacitor voltages. Note that the model may be reduced to three equations only, 
containing as dependent variables of either three capacitor voltages or three capacitor currents. The 
reduction is uncessary in the CSMP simulation, so we will just leave than in the unreduced form. 
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The full-wave rectified sine wave may be 
synthesized by a multiplication of two time 
fuinctions: 

e(t) = e^Ct) * e2(t) 

\idiere e-j^ = sine wave, and ej = square with 
Frequency and jtiase relations as showi. 
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The CSMP program for Example 1 is listed below: 

I N I T I AL 

TITLE EXAMPLE 1: FULL-WAVE RECTIFIER FILTER STUDY 
PARAMETER R1=10.5, R2=3.5, R3=100.4, ... 

CI = . 000045 ,C2= . 000033, C3= . 000202 
INCON V10=0.0, V20=0.0, V30=0.0 

DYNAMIC 

* FULL-WAVE RECTIFIED SINE WAVE, 1000 HZ, 5 VOLT PEAK 

E=(1 COMPULSE (.0005, IMPULSCO.O, .001 ))-5.0)* ... 
SINE(0.0,6.283185E+3,.001 ) 

* CIRCUIT MODEL EQUATIONS 

V3=INTGRL(V30, I3/C3) 
V2=INTGRL(V20, I2/C2) 
V1 = mTGRL(V10, M/Cl ) 
I3=(V2-V3)/R3 
I2=(V1-V2-R2*I3)/R2 
I1=(E-Vl-R1*l2-R1»f|3)/R1 

TERMINAL 

» T=0 TO T=.002 IN FINE INCREMENTS 

TIMER DELT=. 00001 , 0UTDEL=. 00005, F INT IM=. 002 

METHOD RKSFX 

PRTPLOT E,V3 

* T=.002 TO T=0.4 IN COARSE INCREMENTS 

CONTINUE 

TIMER OUTDEL=.01,FINTIM=.4 

END 

STOP 

ENDJOB 



The output is produced in two periods: in fine increments of 0.00005 
second for t=0 to t=0.002 second, and then in coarse increments of 0.01 from 
t=0.002 to t=0.4 second. The purpose of the coarse increments in this study is 
to find the level of a steady state DC output, which is obtained from the 
printplots as 3,184 volts. The output printout of the CSMP run contains many 
parts: (1) a listing of the CSMP program, (2) a liting of the TIMER variables, 
(3) problem durations, (4) range of dependent variables (maxmimum and minimum 
values with respective time values) , and (5) printplots as specified. The 
output was rather voluminous. Only the filter output V3 printplots are 
reproduced here for illustration, as shown in Figure 5.2. The output data are 
also captured on a disk file (see Section 5.12) , which are then plotted on a 
Calcomp plotter. These plots are shown in Figures 5, 4 (a) on page 220. 
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FILTER OUTPUT PRlNTPlXrr FBCM T=0 TO T-C.002 SECCNDS: 



versus TIME 



TIME 
O.OOOOE+00 
5.0000E-05 
l.OOOOE-04 
1.5000E-04 
2.0000E-04 
2.5000E-04 
3.0000E-04 
3.5000E-04 
4.0000E-04 
4 5000E-04 
5.0000E-04 
5.5000E-04 
6.0000E-04 
6.5000E-04 
7.O00OE-O4 
T.5000E-04 
8.0000E-04 
8.5000E-04 
9.0000E-04 
9.5000E-04 
l.OOOOE-03 
1.0500E-03 
l.lOOOE-03 
1.1500E-03 
1.2000E-03 
1.2500E-03 
1.30OOE-O3 
1.3500E-03 
1.4000E-03 
1.4500E-03 
1.5000E-03 
1.5500E-03 
1.6000E-03 
1.6500E-03 
1.7000E-03 
l."'500E-03 
1.80OOE-03 
1.8500E-03 
1.9000E-03 
1.9500E-03 
2.0O0OE-O3 



V3 
O.OUOOE+OO 
6.3121E-U6 
8.5250E-05 
3.6^53E-04 
9.924-'E-04 
2.0"'1"'E-U3 
3.6685E-03 
5.78"'8E-03 
8.3743E-03 
1.1318E-02 
1.4463E-02 
1.7641E-02 
2.0''90E-02 
2.3988E-02 
2.735-'E-02 
3.1008E-02 
3.5010E-02 
3.9377E-02 
4.4060E-02 
4.6960E-02 
5.3930E-02 
5.8808E-02 
6.3542E-02 
6.8216E-02 
7.2959E-02 
T.7889E-02 
8.3081E-02 
B.8553E-02 
9.4263E-&2 
1.0012E-01 
1.059''E-01 
1.1167E-01 
1.1''16E-01 
1.2254E-01 
1.2-'93E-01 
1.3346E-01 
1.3921E-01 
1.4519E-01 
1.513-'E-01 
1.5''66E-01 
1.6391E-01 



FILTER OUTPUT PRINTPDOT FBCM T-0.002 TO 0.4 SECOND: 



TIME 

2.0000E-03 
1.2000E-02 
2.2000E-02 
3.2000E-02 
4.2000E-02 
5.2000E-02 
6.2000E-02 
7.2000E-02 
8.2000E-02 
9.2000E-02 
1.0200E-01 
1.1200E-01 
1 . 2200E-01 
1 . 3200E-01 
I.4200E-01 
1.5200E-01 
1.6200E-01 
1.7200E-OI 
1.8200E-01 
I.9200E-01 
2.0200E-01 
2.1200E-01 
2.2200E-01 
2.3200E-01 
2.4200E-01 
2.5200E-01 
2.6200E-01 
2.7200E-01 
2.8200E-01 
2.9200E-01 
3.0200E-01 
3.1200E-01 
3.2200E-O1 
3.3200E-01 
3.4200E-01 
3.5200E-01 
3.6200E-01 
3.7200E-01 
3.8200E-01 
3.9200E-01 



Mlnimim 
1.6391E-01 



V3 

1.6391E-01 
1.2151E+O0 
1.9041E+00 
2.3520E+00 
2.6430E+O0 
2.8322E+00 
2.9552E+00 
3.0352E+00 
3.0B"'lE+00 
3.1209E+O0 
3.1428E+00 
3.1571E+00 
3.1664E-K)0 
3.1724E+O0 
3.1763E+O0 
3.1789E+00 
3.1805E+O0 
3.1816E+00 
3.1823E+O0 
3.1828E+O0 
3.1830E+O0 
3.1832E+00 
3.I834E+00 
3.1834E+00 
3.1835E+00 
3.1835E+00 
3.1836E+O0 
3.1836E+00 
3.1836E+00 
3.1836E+00 
3.1836E+00 
3.1836E+O0 
3.1836E+O0 
3.1836E+O0 
3.ie36E+O0 
3.1836E+0C 
3.1836E-K)0 
3.1836E+O0 
3.1836E+O0 
3.1836E+00 



Figure 5.2 Printplots Output for V3 versus TIME 



CSMP Examples 



215 



Example 2 

A small rocket has an initial weight of 3000 pounds, including 2400 
pounds of fuel. It is fired vertically upward. The rocket burns fuel at a 
constant rate of 40 pounds/second, which produces a constant thrust of 7000 
poinds. 

The drag force acts in the opposite direction of the motion, and it is 
obtained by two simplifying assumptions: (1) It is proportional to the square 
of velocity (D=Kv ) . (2) The coefficient of aerodynamic resistance K has an 
average value of 0.008 lb-sec /ft . Thus, 

D = 0.008 ( ^ )^ for y>0 



T 



Therefore, the thrust T may be specified in the following way: 
T = 7000 for 0<t<60 

T = for t> 60 

In CSMP statement, it may be written as: 



^ "" T = 7000,0* (STEP (0.0) -STEP (60.0)) 

The weight of the rocket, W, is also a time-varying function: 
W = 3000 -40 t for 0<:t^60 

X = 600 for t>60 

In terms of CSMP, W may be written as: 
W = 3000. 0-40. 0*RAMP (0.0) +40. 0*RAMP (60.0) 




A" 



Going 
up 






H 



Coming 
down 



Consider the rocket as a free body. The two 
diagrams indicate the forces acting on the free 
body, aie diagram is for the rocket on its way 
UP, and the other is for it on its way DOWN. The 
difference is in the direction of the drag force, 
which is always opposite to the motion. Let the 
"y" be positive in the upward direction. 



The net force UPWARD = Tg - Wg ± D 



where "+" sign is for downward leg, and 
is for the upward leg of the journey. 

By Newton's Law, w -r— j = 



Tg - VJg ± 0.008 g ( ^ )^ 



Sign 



dt 



d^y ^ Tg 
H+-2 W 



.008 g ( ^ )2 



Now reduce the second-order equation to a system of two simultaneous 
first-order equations: 
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Let vel = ^ The CSMP statements are: 
dt 

Then, ^-^il^ ^ T = I1SITGRL(0.0,VEL) 

vAiere F=Tg/W-g±0.008g(vel) /W VEL = INTGRL{0.0,EXPR) 

and the initial conditions are: EXPR = THRUST*G/WEIGHT - G -- ... 

Sia^ (1 . ,VEL) * ( . 008*G*VEL*VEL) /WEIGHT 



y(0)=0 and vel(0)=0 



where SIGN is a FORTRAN function. 



The complete CSMP program for Example 2 is listed below: 



I N I T I AL 

TITLE EXAMPLE 2: ROCKET PROBLEM 
CONSTANT G=32.2, K=0.008 

DYNAM I C 

THRUST=7000.0*(STEP(0.0)-STEP(60.0)) 

WE I GHT=3000 . 0-40 . 0*RAMP ( . ) +40 . 0*RAMP (60.0) 

EXPR=THRUST»G/WEIGHT - G - SIGN( 1 .0, VEL )*(K»G*VEL*VEL )/WEIGHT 

Y=INTGRL(0.0,VEL) 

VEL=INTGRL(0.0,EXPR) 

TERMINAL 

T I MER DELT= .03125, OUTDEL= 1 . , F I NT I M=60 . 
METHOD RKSFX 
PRTPLT Y,VEL 

CONT I NUE 

TIMER 0UTDEL=1 .0,FINTIM=70.0 

CONTINUE 

TIMER OUTDEL=0.1,FINTIM=120.0 

FINISH VEL=-10.0 

END 
STOP 

ENDJOB 



The composite diagrams on the next page are the printer-output of the 
simulation. From the VEL-TIME and the Y-TIME plots, the rocket reaches a 
maximum velocity of 890.39 ft/ sec at about 60.0 seconds, and reaches a maximum 
height of 43,347 ft at 70.8 seconds. 
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Printplocs of Velocity versus TIME: 



TIME 

O.OOOOE+OO 
l.OOOOE+01 
2.0000E+01 
3.0000E+01 
4.0000E+O1 
5.0000E+01 
6.0000E+01 

6.0000E+01 

e.ioooE+oi 

6.2000E+01 
6.3000E+01 
6.4000E+01 
6.5000E+01 
6.6000E+01 
6.7000E+01 
6.8000E+01 
6.9000E+01 
7.0000E+01 

7.0000E+01 
7.0100E+01 
7.0200E+01 
7.0300E+01 
7.0400E+01 
■'.0500E+01 
7.0600E+01 
7.0700E+01 
7.0800E+01 
7.0900E-K)1 
7.1000E+01 
7.1100E+01 
7,1150E-H)1 









Printplots of Heiqht versus TIME: 



TIME 
O.OOOOE+OO 
1.0000E-K)1 
2.0000E+01 
3.0000E+01 
4.0000E+O1 
5.0000E+01 
6.0000E+01 

6.0000E+01 
6.1000E+01 
6.2000E+01 
6.3000E+01 
6.4000E+01 
6,5000E+01 
6.6000E+01 
6.7000E+01 
6.8000E+01 
6.9000E+01 
7.0000E+01 

7.0000E+01 
7.0100E+01 
7.0200E-K)1 
7.0300E+01 
7.0400E+01 
7.0500E+01 
7.0600E+O1 
7.0''OOE+01 
7.0800E+O1 
7.0900E+01 
7.1000E+01 
7.1100E+01 
7.1150E-K)1 



O.OOOOE+OO 
2.1767E+03 
7.8895E+03 
1.5284E+04 
2.3328E+04 
3.1749E+04 
4.0495E+04 

4.0495E+04 
4.1236E+04 
4.1"'72E+04 
4.2181E+04 
4.2500E+04 
4,2752E+04 
4.2951E+04 
4.3103E+04 
4.3216E+04 
4.3293E+04 
4.3336E-K)4 

4.3336E+04 
4.3338E+04 
4.3341E+04 
4.3342E+04 
4.3344E+04 
4.3345E+04 
4.3346E+04 
4.3347E+04 
4.J3 47E+04 
X35f7E+oT 
4.3346E+04 
4,3346E+04 
4.3345E+04 












-■(£) Max 



Figure 5.3 Composite Printplots of Example 2 
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Example 3 

We now conclude with an example which would not be normally considered as 
an engineering study. 

Let us consider a dynamic model of influenza epidemic. We first make 
three assumptions: (1) The disease spreads when a susceptible person comes in 
contact with a infected person. (2) A person who recovers from the influenza is 
normally immune for a certain period of time. (3) Immunity is ultimately lost, 
and the person becomes susceptible again to the disease. 

In addition, for the sake of model simplicity, we assume no birth and no 
death occur to the group of population under study. 

So the population under consideration is composed of three groups: 

Group CSMP Variable 

Susceptible population SUSP in no. of persons 
Infected population INFP in no. of pe:rsons 

Immuned population IMMP in no. of peirsons 

Define the rates in the following manner: 

IR = Infection rate, no. of persons becoming infected each day 

RR = recovery rate, no. of persons recovered each day 

LR = loss-of- immunity rate, no. of persons/day who loses immunity 

Thus, A (SUSP) = (LR - IR) At 

= increase of susceptible persons jper day 

^i^=LR-IR 
at 

similarly, '^^'^^''^ = IR - RR 

at 

There are three other equations, each defining the relations of the rates 
IR, RR, LR. IR is proportional to SUSP and to INFP, and therefore proportional 
to their product. Thus, 

IR = K * (SUSP) * (INFP) 
If the disease requires (PD) days to run its course, then 

RR = (INFP)/PD 
If the period of immunity lasts for PIVM days, then 

LR = (IMPP)/PIMM 

These six equations constitute the dynamic model of the influen2;a epidonic. 

Now let us study one particular case of dynamic simulation. Suppose we 
have a population of 1000 persons. On day 0, one person is sick, 999 persons 
healthy, and nobody immunized. This gives us three initial conditions: 
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SUSP(O) = 999, INPP{0) = r, IMMP(O) = 

For the last three equations, we assume the following parameters: 

K = 0.001, HD = 8 days, and PIMM = 1000 days. 

The CSMP program for this example is listed below: 

1 N I T I AL 

INCON SUS0=999.0, INF0=1 .0, IMM0=0.0 
PARAMETER K=0.001 ,PD=8.0,PIMM=1000.0 

DYNAMIC 

IR=K»SUSP*INFP 

RR=1NFP/PD 

LR=IMMP/PIMM 

SUSP= I NTGRL ( SUSO, LR- I R ) 

INFP=INTGRL(INF0-1R-RR) 

IMMP=INTGRL( IMM0,RR-LR) 

TERMINAL 

TIMER OUTDEL=1.0,FINTIM=45.0 

PRTPLT SUSP,1NFP, IMMP 

END 

STOP 

END J OB 

The plots are made on the CalComp plotter with the "captured" data from 
the CSMP run, and they are shown in Figure 5.4(b) on the next page. From these 
plots and those printouts frc«n the CSMP run, the epidemic simulation concludes 
that the crisis of the epidemic occurs on the 10th day v^en 613 out of 1000 
persons are sick. After that, crisis passes and the infected population is 
reduced to 13 persons on the 45th day. 





FILTE-R INPUT VOLTHGE 



KILTER OUTPUT TRANSIENT 



F II ItR GUTPUT TRANSIENT 



(a) CalComp Plotter Output of Example 1 






InnuNlZEO POPULATION IN m tPIOEnlC MODEL INFECTED POPULATION IN AN EPIOfrtlC MODEL 



(b) CalComp Plotter Output of Example 3 
Figure 5.4 CalComp Plotter Output of CSMP Examples 
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EXERCISES 



1. Write CSMP functions for the the following time- functions, and verify by 
CSMP printouts: 



>' 

(0 


Saw- 

pi 


tooth 


M 


/ Time In 





.s i.o I'S msec 


c) 

y 


Trap 
1 


ezoida 


1 pulse train 





(b) 



T.'nia '• 



Half-wave rectified sine 



J_t 





,5" 10 I.S 2..0 i^sec. 

(d) . An arbitrary function 

y 



0.1 <!•'[ 0.? (.0 ''S 2.0 rws&c. 




2. The following differential equations have known analytical solutions. Use 
CSMP to obtain their computer solutions and verify them with the given 
analytical solutions. Specify different methods and compare the 
accuracy of the results. 

-2t 
(a) y' + 3y = X + e Solution: y = 

Y(0) = 



8 -3t t 1 -2t 
— e + — +e 

9 3 9 



2 2 
(b) y' = 1 + t + y + ty 

y(0) = 



Solution: y = tan(t+t /2) 



(c) (l-t)y" + ty' - y = 2(t-l) e 
y(0)=-0.5, y' (0)=0 



for 0<t<l 
Solution: 



t 1 -t 

-e +2t- ie (2t-l) 



(d) y'" - y- = t 

y(0)=6.0, y' (0)=0, y"{0)=1.0 



Solution: 



„ t -t X 

y=l+2e +3e -t— 



3. A square wave of 10 volts amplitude is applied to a PLC circuit as shown. 
By CSMP, find the current as a function of time. 

V (a) R = 1000 ohms 

(b) R = 400 ohms 

(c) R = 100 ohms 



/o 



"t li 
n\st.c- 




2.S tv\fa 



0.| KefMry 
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4. The circuit shown is a sixth-order circuit, and its behavior is given by a 
matrix equation:* 

-Mli/ vWW ^j— 




's 



^iB ^i 











6 








I 









c, 











/ 

'^2 





























1 









Find the current- i , i , and i as functions of time by CSMP simulation. 
Use: G, = .001 mho, 62.= .002 mho, and 63.= ,01 mho; 

L, = ,lh, Lx= .5h, and L^ = 1.0 henry; 

C, = 10 mfds, Cj_= 25 mfds, and C3 = 100 mfds. 

ig = 10 milliamperes. 



c, 




V 




c,' 






v^ 







1 




""J 


+ 










1, 







P 




ia. 











_ h. 








A ball is rolling off the edge of a flat roof 30 feet fran the ground. 
When it leaves the edge, it was travelling at a speed of 5 feet per 
second. When the ball hits the ground, certain fixed {percentage of 
kinetic energy was absorbed. That percentage depends on the type of 
ball: superball 5%, rubber ball 15%, basket ball 55%, iron ball 90%, 
Assume the angle of incidence is equal to the angle of reflection v*ien 
the ball bounces up. Find the x- and the y-component of the velocity of 
the bouncing ball after it leaves the roof. Do this for each of four 
kinds of balls. 



A sinusoidal force (F=12 sin{4t) ) applied to the following mechanical 
system. Find the displacements x, , x^ and x^ at TIME=2.0. (Answer: 
-0.2075, -0.2707, 0.4517) 



t<i- r-n 



C I — I I — I 



m^x^ + k X - k X = 12 sin(4t) 
where: m = 2,3, m =3,4, m =0.9 

^1= 



*BASIC CIRCUIT THEORY, by L, P, Huelsman, Prentice-Hall, Inc, 1972; pp. 362-366. 
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7. A control system has a transfer function l/(s +s+l) . 

(a) Find the transient response to a unit step function. 

(b) Find the frequency response over the range of 0.1 to 
r ad ians/ second . 



10 



Suppose a cantilever beam of length 30 inches and weighing 10 lb/in is 
subjected to a horizontal tensile force of 100 lb applied at the free 
end. Taking the origin at the free end and the y-axis positive upwards, 
the equation of the beam is: 

Ely" = P y - w X /2 

•j^ 3o'' 

where E = Young's modulus, 30E+06 psi 

I = Moment of inertia = 0.01042 in 
w = linear weight per length 

= 10 lb/in 
P = 100 lb ^ -^ 

y'= deflection of beam 

The beam is so placed that at x=0, y(0)=0, and y' (30^=0. Find the 
maximum deflection at the end of the beam. 




9. When a bcmb is dropped from an airplane, it encounters an air resistance 
proportional to the square of the velocity, and acquires a velcity of 
125 ft/sec in falling a distance of of 343 feet, find the time elapsed 
and the limiting velocity. 



Note to the Instructor ; 

The purpose of this group of exercise problems is to familiarize with the 
CSMP programming and execution. The derivation of models, however important, is 
not the main goal of these exercises. In this context and depending on the 
background of the class, additional problems may be found frcxn many standard 
texts in physics, circuits, mechanics, control systems, etc., where dynamic 
behaviors are discussed. 
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CHAPTER 6 
A PRIMER OF COMPUTER GRAPHICS WITH DEC-10 



Computer graphics is defined as "the art and the science of producing 
graphical images with the aid of a computer." (Reference 1) 

For many years, the computer field has tried to break out the bottleneck 
of computer-human communications by using pictures rather than printouts. The 
idea is an old one. After all, "a picture is worth ten thousand words." Hence, 
earliest use of computer graphics was simply to present data in graphical form. 
But earlier computer graphics was very expensive. Hardware was costly, but far 
worse was the software cost. They were machine-dependent and programming was on 
the assembler language level. Much of the acceptance of the present-day 
computer graphics is attributed to these developments: 

(1) Development of user-accessible software of computer graphics in the forms 

of FORTRAN callable subroutines. This puts the application of computer 
graphics at the user's hand, rather than at the hand of a professional 
programmer. 

(2) The time-sharing mode of computer operations is further enhanced by the 

canputer graphics with its clarity of man-machine interaction. 

(3) LSI and microprocessor developnent has rapidly brought down the cost of 

computer graphics hardware. 

Computer graphics, of course, can do much more than plotting nowadays. 
In fact, it becomes a branch of computer processing that has most caught the 
imagination of the non-computer world. We find its applications in 
computer-aided design and manufacturing, simulation of training environment, and 
science fiction motion pictures and many other widely different fields. 



6.1 Computer Graphics and Computer Graphics Devices 

Using the definitions of Ivan E. Sutherland, a pioneer in computer 
graphics, there are two types of canputer graphics systems now in common use: 
rasterized systems and calligraphic systems . 

The rasterized systems make picture the same way a television set does. 
It is drawn in a fixed sequence, usually fran the left to the right and frcm top 
to bottom. It has the advantage of simpler and less expensive implementation, 
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as it is ccxtipatible with the conventional mass-produced display devices such as 
terminals, printers or video display sets. Implementation of computer graphics 
of this type, however, requires much computer effort in sorting the display 
information in the sequential display, a process called rasterization . If the 
display data are altered, the graphic data would require another rasterization. 

The calligraphical systems, on the other hand, will construct a picture 
in any sequence of plotting given by the canputer. The picture-drawing element 
is a mechanically moved pen of a plotter or an electronically controlled 
electron beam in a cathode-ray-tube (CRT) display. The pen or the electron beam 
is moved frcxn one point to another at the command of the computer. When the pen 
is held down on paper, or when the beam is turned on, it traces a line on the 
paper or the screen during its movement. When the pen is up, or v*ien the beam 
is blanked, it moves the picture-drawing element to another point without 
leaving a trace. This is exactly the same process of preparing a line drawing 
manually. The advantage of using a calligraphic device is that the information 
on sequence of tracing can be stored in the computer in any order. Any 
alteration of the display data can be simply made by revising the stored data. 

The decade of 1970 's has been a period of time that brought in the 
large-scale integrated circuit (LSI) into digital electronics. As a result, the 
computer graphics enjoyed a phencaninal growth both in hardware development and 
in applications. Unfortunately, there has been very little coordination in the 
growth. As a result, different types of graphic hardwares use different 
software packages, most of v^ich are not conpatible to each othier. Although 
energetic efforts have been made in the United States and abroad to standardize 
the graphics field (References 3 and 4) , progress has been slow. 

In this chapter, the introduction to the computer graphics will be by 
necessity restricted to the available hardware/ software packages for the DEC-10 
at a local installation. For this reason, readers should check with their own 
installation regarding the available graphic hardware and software. The 
hardware graptiic devices are listed as follows: 

1, Rasterized devices 

Terminals 

Line printers 

Image display devices 

2, Calligraphic devices 

Plotters 

Graphics terminals 

For the graphics usage on DEC-10, the materials will be presented in 
three parts. In each of these parts, certain devices in the above list will be 
employed. The parts are: 

1. Graphing and plotting 

2. General graphics 

3. 3-Dimensional graphics 
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GRAPHING AND PLOTTING 



Let us consider the steps we take in plotting a graph after the x-y array 
data have been determined: 



y axis. 



(1) Assign dependent and independent variables respectively to the x and 



(2) Determine the range of the ordinates and abscissas. 



(3) Since the plotting field is usually fixed, we map the range of 
abscissa and ordinates onto the fixed paper ranges. This is called virtual 
graphics, a term we will use very often later. Its explanations will also be 
left for latter treatment. 

(4) After the range is determined, choose a scale factor. 

(5) As the independent variable is incremented, we determine a dependent 
variable value for that point, and then determine by scale factor the position 
of that point on the plot. When this step is repeated as x-variable 
incremented, points are joined by either straight lines, or a smooth (French) 
curve, or a best-fit curve. 

We will now consider the plotting and graphings on both the rasterized 
and the calligraphic devices. 



6.2 Plotting on a Terminal or Printer 

Both the terminals and the printers are rasterized devices. There is 
only one direction the paper may be advanced. We are excluding certain more 
costly terminals that has paper movement control (forward and backward) built 
into the device. 

Plotting and graphing on a terminal or a printer is basically the 
sequential outputing of a character-print line. Let us consider a typical case. 

Consider a EXDRTRAN format of (lOlAl) for use by a character array LI (I) 
with I runs frcm 1 to 101. Thus there are 101 print positions from to 100. 
Now, the data point values are generated and the maximum and the minimum values 
of the ordinates can be determined. The range for the ordinates (Ymax-Ymin) can 
then be calculated. With the bounds of the ordinates established, any value 
within the bound can be mapped into a proportional value within the print 
position bounds of to 100. This will then establish a print position for that 
particular ordinate. Thus, if the Ll-array is initialized as blank (Octal word 
code "200000000000) , the Ll-element at the print position, say at position KK, 
is set to an ASCII character of a plot symbol, such as a "*". Thus, LI(KK)='*", 
while Ll-element is blank everyvAiere else. When this array is now printed with 
a (lOlAl) format, a symbol of "*" is printed as a scaled ordinate. The Ll-array 
is then re- initialized to all blanks, and the process is repeated for the next 
ordinate value. 
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There are many amenities that can be built into such a plotting routine. 
For example: 

a. Scale factor printed along with the graph; 

b. Choice of scale factor limited to 1,2, or 5 or their integer 
(positive or negative) powers of ten; 

c. Graph with or without grid lines; 

d. Multiple curves on one plot; 

e. Cartesian plots, semilog plots, log plots, or polar plots; 

f . Curves occupy 60-90% of graphing space for neat looking plot. 

Terminal or printer plots have the advantages of being inexpensive and 
fast turn-around. Unlike a plotter plot, they can be immediately produced on 
the user's terminal or an accessible printer, and the turn-around time is very 
short. However, there is at most about 101 print positions, so the resolution 
of a plot is not good. The worst case would be a curve that is almost 
horizontal or almost vertical. An almost horizontal curve \\/ill have an 
appearance of a staircase such as shown below: 

********** 
■ — -~-___^^^ ********** 

~~~" — ~.,..__ ********** 

********** 

A Straight Line Line as appeared on a Printer Plot 



Thus, the chief usefulness of a terminal or printer plot is to provide a 
quick and inexpensive way of graphical output, when high resolution and polished 
drafting quality are not as important requirements. 

Consequently, it would not be cost effective for any user to design and 
implement his own plotting routine, except as a format-exercise, because there 
are so many already available, and because its plot quality is poor. 

For the remaining portion of the discussion of plotting and graphing, 
materials will be devoted to the presentation of several typical available 
plotting softwares that are either FORTRAN-callable subroutines, or stand-alone 
interactive programs. In both cases, the users are spared from the drudgery of 
laborious construction of axes, determination of scale factors, marks on the 
axes, design of mapping formula, and so on. 

For the terminal or printer plot routines, several FORTRAN subroutines in 
the Engineering Program Library will be presented below. Ttese graphical 
routines are available for user's call under the collective name of 
ENG: GRAPH. REL. Thus the standard way of calling a library routine in conjuction 
of your main program (assuming named as PRO4.F0R) is to issue a monitor command 
of: 

.EXECUTE PRGM, ENG: GRAPH/LIB 



PD0T8 Subroutine 
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(1) The PLOTS Subroutine 

The subroutine call is: CALL PLOTS (Y,NF,NP, XI, XINC) 

vAiere the parameters are defined as follows: 

Y a 2-dimensional real array Y (I, J) 'for the i^th function and jth 

value. Maximum size is 8 functions. The calling program must 
have the Y-array dimensioned at Y(NF,NP). The Y-array will be 
altered upon the return of this subroutine. 

NF number of functions to be plotted; max NF= 8. 

NP number of points to be plotted for each function, Max=151. 

XI value of the first abscissa 

XINC. value of X- increment. This subroutine is for a plot that the 
x- increment is constant. 



A terminal or printer-constructed plot is produced. The 
positive direction of the independent variable is taken as 
downward on the printed page. The symbols for up to 8 curves are 
assigned as: 



Function: 
Symbol: 



If points of different functions occupy the same print 
position, the joint symbol at that print position is a "$". For 
convenience, the numercial values of the first function are 
printed along the left edge.* 



Example : Graph three functions, whose data are stored respectively 
in DA. DAT, DB.DAT, and DC. DAT. Each data file contains a 
Y-array of the same number of elements (NP=46) . Also, 
Xl=0, and XINC=1.0. The program (named as SAMPLE. FOR) that 
calls the subroutine is listed below: 

REAL Y(3,46) 

CALL IFILE(1,'DA') 

CALL IFILE(2,'DB') 

CALL IFILE(3,'DC') 
50 FORMAT (F) 

DO 10 1=1,3 

READ(I,50) (Y(I,J) ,J=1,46) 
CALL PLOT8(Y,3,45,0.0,1.0) 
10 CONTINUE 

END 



The execution command is: ".EXECUTE SAMPLE, ENG: GRAPH/LIB" The output 
this program is shown on Figure 6.1 on the next page. 



of 



*If this output is produced on a terminal, a right 
preset by a monitor conmand of "TTY WIDTH 132" . 



margin setting should be 



The Scale Factor of Ordinate: 1 Division^ 0.20000E+02 

The Scale Factor of Abscissa: 1 Dlvlslon= 0.10000E+01 

First Abscissa Value: X(l)= O.OOOOOE+00 

NOTE: In Interpreting the plot, X-axIs starts «ith Xd) valu 
Other X's can be computed from X(1) and abscissa scale 



Function 1 

0.9990E+03 
0.9974E+03 
0.9956E+03 
0.9846E+03 
0.9637E+03 
0.9173E+03 
0.8232E+03 
0.6642E+03 
0.461 7E+03 
0.2781E+03 
D.1538E+03 
0.8353E+02 
0.4658E+02 
0.2750E+O2 
0.1701E+02 
0.n34E+02 
0.8inE+01 
0.6236E+01 
0.5141E+01 
0.4519E+0I 
0.4195E+01 
0.4070E+01 
0.4oe3E-KH 
0.4197E+01 
0.4387E+01 
Q.4639E+0) 
0.4942E+01 
0.5288E+01 
0.5673E+OI 
0.6092Et01 
0.6543E+01 
0.7024E+01 
0.7532E+01 
0.8066E+01 
0.8625E+01 
0.9207E+01 
0.98nE+01 
0.1044E+02 
0.1108E+02 

0.1243E+02 
0.1515E+02 
0.1385E+02 
Q.U58E+02 
0.1533E+02 
0.1609Et02 



* + 



(Multiply by Scale Factor 0.20000Et02) 

Figure 6.1 Output from the Subroutine PLOTS 
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HELP file for ENG:GRAPH Package: 

*********************** 

* SUBROUTINE PLOTS * 
*********************** 
* 

* SUBROOTINE PLOTS (Y,NF,NP, XI, XINC) 
* 

* Subroutine to plot up to "NF" curves on the same plot 

* with automatic scaling and choice of best scale factor 
* 

* Y 2-dimensional real array Y(i,j) for the ith function, 

* and jth value. Max i=8, max j=151. 

* NF number of functions to be plotted, max =8 

* NP number of points for each function, max=151 

* Each function must have the same NP. 

* XI first abscissa value 

* XINC increment of X's 
* 

* Ordinates of the first function will be tabulated on the left 

* side of the plot. When points from different curves coincide, 

* they will be plotted as a single point marked with "$" symbol. 
* 

* By T. W. Sze, December 10, 1972; single curve plot 

* Revised TWS, October 8, 1977; multiple-curve plot 



*********************** 

* SUBROUTINE XYPLOT * 
*********************** 
* 

* SUBROUTINE XYPLOT (X,Y,ND) 
* 

* Subroutine to plot a x-y plot with automatic scaling and choice 

* of the best scale factor. The increments of abscissa may be 

* unequal, the x-acray need not be in ascending order, nor need 

* they be unique from each other. Therefore, this routine may 

* be used to plot a multi-valued function, such as a complete 

* circle. 
* 

* This is also the backbone routine for polar plots, semilog- log 

* plots. In polar plots, polar coordinates are first transformed 

* into Cartesian coordinates. In log plots, logarithmic trans- 

* formation is done on the values first. After transformation 

* of data, calling XYPLOT routine would produce a polar or log 

* plot, 
* 

* X,Y one-dimensional array X(i) , Y(i) , with max i= ND 

* ND number of points for the function 
* 

* NSX maximum abscissa scale value used in the plot 

* NSY maximum ordinate scale value used in the plot 

* NNP total range of values of the acscissa scale desired for 

* the plot. 



By T. W. Sze, October 20, 1980 



SUBBDUriNE P[OT8(Y,NF,NP,X1,XINC) 

REAL Y(NP,NP),YM(2) 

INTECER L{ll),U(101),SymOL(8) 
JB»blank is used in IF statement, requlrir^ precise definition, 
tovjer case "x" code is "740000000000, left justified. 
Lower case "o" code is "674000000000, left justified. 

DATA JN,JP,JI,JZ/'-","+','I','$V,JB/"200000000000/ 

DATA SVMBOV*' r' + '.' ',"740000000000, "674000000000, 

1 '.',■-■,■=7 

md)— l.OE+36; ™(2)= l.OE+36 
To establish rar^e of Y's 

DO 10 1=1, W 
DO 10 J=1,NP 

™(1)-««AX1(™(1),Y(I,J)); YM(2)=AHim(YM(2),Y(I,J)) 

CONTINUE 

BANGE«YM(1)-YH(2) 
To establish the best scale factor for Y's 

TALL SCALE(RANGE,YH(2) ,SF,NS) 

WRITE(6,1000)SF; WRITE(6,101D)XINC; WRITE (6, 1020) XI 

WRITE (6, 1030); WRITE(6,1040) 

Start plottir>g 

N-0 
Print ordinate scale 

DO 20 1=1,11 

L(l)=10«I-110+ie 

WRITE(6,1050)SF; WRITE(6,1060) (L(I) ,1=1,11) 
Construct ordinate graph line 

M>=0 

DO 30 1=1,10 

ND=N[»-1; LI{ND)=JP 
DO 30 J=l,9 

NtPHDH; LKNDXra 

CONTINUE 

L1(101)=JP 

WRITE(6,1070)LI 

XNS=NS 

GO TO 90 

Cttange ntioerical data to symbols at right print positions 

DO 50 1=1, NF 

KK=Y(I,N)/SF + 101.4999 - XNS 

IP(KK.GE.iai)KK=101 

IF(KK.I£.1)KK=1 

IF(L1 (KK) .NE.JB) LI (KK)=J2 

IF(LI (KK) .EQ. JB) LI (KK)=SY«BOL(I) 
COmiNUE 

To calculate the lerKith of a print line 

DO 60 1=1,101 

IX=102-I 

IF(LI(IX).NE.JB)03rO 70 
CONTINUE 
lENGTH'IX 

IF(M0D(N,5).EQ.0)GO TO 80 
WRITE(6,1080)Y(1,N) , (LI (I) ,I=l,I£NGrH) 

WRITE(6,1090)Y(1,N) ,N,JP,(LI(I) ,I=l,I£NCjrH) 

Reset the line to all blanks, and begin next plot line 



1000 
1010 
1020 
1030 



1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 



N=«+l 

IF(N.I£.NP)CI»rO 40 
1 of graphing, construct bottom Y-axis 
Nr>=0 
DO 110 1=1,10 

ND=NEH-1; LI(ND)=JP 

DO 110 J=l,9 
ND=fCH-l 
LI(ND)=JN 
CONTINUE 
LI{101)=JP 
WRITE(6,1070)U 
DO 120 1=1,11 

L(I)-10«I-H0-rte 
(XNTINUE 

WRITE(6,1110)(L(I) ,1=1,11); MMTE(6,1100)SF; WRITE (6 , 1040) 
RETIBN 

FORHAT(/45X,42H The Scale Factor of Ordinate: 1 Dlvision=, E12.5) 
PORMAT(45X,' llie Scale Factor of Abscissa: 1 Division"' ,E12.5) 
EORMAT(53X,' First Abscissa Value: X(l)=' ,E12.5) 

FORHAT(/40X,'NOTE: In interpretirq the plot, x-axis starts with' 

1 ,' X(l) value. ',/45X,' Other X',lH','s can be ccmputed ', 

2 'from X(l) and abscissa scale factor.') 
FORMAT (/) 

FOBMATC* Values of ',40X,' (Multiply by Scale Factor ',E12.5,')') 
EORMATC* Function l',6X, 11(15, 5X)) 

FC»MAT(1H*,3X,' ',9X,101A1) 

F(DRMAT('* ',E12.4,2X,' I',101A1) 

FOBMATC* ',E12.4,' X(',I3,')',A1,101A1) 
FC»MAT('*',52x,'(Multiply lyf Scale Factor ',E12.5,')') 
FORHAT( '* ' ,19X, 11 (15, 5X) ) 
Etm 



SUBKCOTINE XYPI£rr(X,Y,ND) 

REAL X(ND),Y(ND) 

INTEGER L(ll) ,LI (101) , SYMBOL 

DATA SYMBOL,JN,JP,JI,JZ/'*' ,'• 

NDM=MD-1 

Arrange data in ascer^aing order of X 



DO 10 1=1, NDM 
LA=I+1 
DO 10 J=IA,W) 

IF(X(I).I£.X(J))G0TO 10 
TQ1P=X(I); X(I)=X(J); X(J)=TEMP 
TE«P=Y(1): Y(I)=Y(J); Y(J)=TEMP 
CONTINUE 

To establish the range of Y's 

YMAX^l.OE+36; YMIN=1.0E+36 

XMIN=X(1) 

DO 20 1=1, ND 

IF(Y(I).Gr.YMAX) YMAX=Y(I) 
IF(Y(I).II'.YMIN) YMIN=Y(I) 
CONTINUE 

RANGEX=X(ND)-X(1); RAN(2:Y=YHfiX-YMIN 
CALL SCALE (!!AM3F.X,XHIN,SCLX,NSX1 
CALL SCALE (BANGEY,YMIN,SCLY,NSY) 
HRITE(6,1000)SCUC,X(1) ,X(ND) 
WRITE (6 , 1010) SCIi.SMIN.YMAX 
WRI'IE(6,1060) 
WRITE(6,1020)SCLY 
00 40 1=1 w> 

CONTmoe 



■+','1',"$'/ ,JB/" 200OO00OU000/ 



Listing for ENG:GRAffl.FOR 



Print ordinate scale figures 

DO 60 1=1,11 

L(1)=1U*1-110+NSX 

WRITE(6,1030)L 

Blank out all pcint characters 



Start Plottir^ 

N=0;K=1 

Prepare print line for the y-axis 

NQ=0 

DO 90 1»1,10 

NCpNOtl; L1(NQ)=JP 
DO 90 J=l,9 
N5=tlO+l 
LI(NQ)=JH 
CCKTINUE 
LKIODOP 

IP(N.^E.O)Qorro no 

Scale abscissa data 

) NX=X(K)'0.6-XNS+XNIHO. 499999; NX=lflBS(NX) 

Check to see if data is sorted for current abscissa value 

1F(NX.EQ.O)QOTO 110 
IF(NX.ar.NP)NX=NP 
) IF((NX.^E.N).A^1D. (N.EQ.O))03rO 130 

IF((NX.lt;.N).AND. (N.JE.0))a)TO 120 

Scale ordinate data 

KK=Y (K) +101 .499999-YNS 
IF(KK.Lr.l)LI(l)iJZ 

iF(ifl(.ar.ioi)Li(ioi)=oz 

IF( (KK.a:.!) -AND. IKK.I£.101) )U(KK)-S»IBOL 

K=K+1 

IF(K.l£.ND)OCITO 100 
DO 112 1-1,101 

IX=102-1 

lF(LI(lX).tt;.JB)Q0TO 114 
2 CONTINUE 

4 LENGM-IX 

IF(N/6.Qr. {N-1)/6)0OT0 130 



Print line and data without abscissa 

WRITE(6,1040) (LI (I) ,I=l,I£NGm) 
GOTO 140 

) ^-(rplo/e-tMSX-mp 
Print line and data with abscissa la 



label 



** Set up abscissa graph lines 

LI(1)=JI 

lF(N/6.C3r.(N-l)/6)LI(l)<IP 
GOTO 110 

160 NQ=0 

DO 170 1=1,10 

NCHJQ+1; LI(NQ)=JP 
DO 170 J=l,9 
NQ=NOtl 
LI(NQ)-JN 
170 COIWINUE 

LI(101)=JP 
WEITE(6,1040)LI 
DO 180 1=1,11 
180 L(I)=10*I-110<«S5f 

l(RITE(6,1030)L 
WRITE(6,1020)SCU( 
WR1TE(6,1060) 
WRITE(6,1060) 
RETURN 
1000 FOBHAT(/lH«,24x,' The Scale Factor of Abscissa: 1 Division-', 

1 E12.5/1H*,32X,' First point at ', E12.5/ 

2 1H*,32X,' Last point at ', E12.5) 

1010 F0RMAT(1HV1H*,24X,' The Scale Factor of Ordinate: 1 Division 

1 E12.5/1H*,32X,' Range of Otdinates: imin-' ,E12.5, 

2 /lH«,55X,'Yniax=',E12.5) 

1020 F0BMAT(1H*,29X,'Y-Axis (Multiply by Scale Factor' ,E12.5,') ') 

1030 FOBMATC* ',11(14,6X1) 

1040 FOBMATC* ■ ,101A1) 

1050 FOBMAT(1H*,I4,101A1) 

1060 F0RHAT(///) 



SUBROUTINE SCALE(2RANa:,ZHIM,ZSF,NSZ) 
YPD=ZRANGE/90 . ; NYPD-YKl 
IF(NYPD.Gr.0)G0TO 60 
DO 10 1=1,25 

YPD=10.«YPD; NYH>=YPD 

IF(NYHI.Gr.0)GOTO 20 
COfTINUE 

RSF=10.**(-I+1); YK)=.5*YPD; NYPD=YPD 
IF(NYPD.Gr.0)QOTO 40 
ZSF=.2*RSF 
GO TO 90 
YPD=.4*YPD; NYPD=YPD 

iF(NYPD.ar.0)Goro so 

ZSF=.5*BSF 
OD TO 90 
2SP-RSP 
00 TO 90 
DO 70 I>2,25 

YPD«YPD/10.; NYH>=Yro 

IF(NYPD.I£.0)Q0TO 80 
CanlNUE 

RSF=10.**(I-1); YH>-5.*YPD; NYPD-YH) 
IF(NYPD.Gr.0)40,30 
NSZ=100+10* ( IFIX ( ZMDi/ZSF) /lO-l ) 
BEIUiN 
{2D 



Listing for ENG:GRAPH.FOR 
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The subroutine PLOTS has the following limitations: 

a. Each function must be single-valued. Therefore, this routine will 
not be suitable to plot a multi-valued function, such as a circle. Thus it 
could not be used for such applications as root locus, Nyquist plots, etc. 

b. X-increments must be constant. Thus, the routine is unsuitable for 
data point array that does not have equally spaced x-increments. 



(2) The XYPLOT Subroutine 

The routine XYPLOT is designed to plot either a single-valued or a 
multi-valued function, with equal or unequal x-increments. It also has 
built-in optimal selection of scale factors. In addition, this routine 
is a building block in implementing a polar plot routine or a logarithmic 
plot routine. 

The call and the parameter definitions are shown below; 

CALL XYPLOT (X,Y,ND) 

where the parameters are explained below: 

X,Y each a one-dimensional array X(I) , Y(I) with Max I - 200. Both 
' arrays will be altered upon return from the subroutine. 

ND number of data points to be plotted. 

Example ; The following program shows the generation of plotting data 
for a parabola: 

Y**2 = 4*X + 5 

The program (again named as SAMPLE. FOR) listing is as 
follows: 

REAL X(150) ,Y(150) 
DO 10 1=1,150,2 

XI=I-1;J=I+1 

X(I)=XI 

X(J)=XI 

Y(I)=SQRT(4.*XI+5.) 

Y{J)=-Y(I) 
10 CONTINUE 

CALL XYPLOT(X,Y,150) 
END 

Use the command ".EXECUTE SAMPLE, ENG: GRAPH/LIB" to execute. 

The output for this example is shown in Figure 6.2. The help file 
and the program listings for these two programs are also included for 
user ' s reference . 

There are other plotting routines in the ENG:GEyVPH package. They 
will be only mentioned here, and further details may be found in the 
help-file ENG: GRAPH. HLP. The contents of ENG:GRAPH are as follows: 
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* The Scale Factor of Abscissa: 1 Division= 0.20000E+01 

* First point at O.OOOOOE+00 

* Last point at 0.14800E+03 
* 

* The Scale Factor of Ordinate: 1 Division= O.lOOOOE+01 

* Range of Ordinates: Ymin=-0.24434E+02 

* Ymax= 0.24434E+02 



Y-Axis (Multiply by Scale Factor O.lOOOOE+01) 
-30 -20 -10 10 20 30 40 

OH + + *_+_* _ + -I + +. 

J ** ** 



I * * 

J ** ** 

J ** ** 

10+ * * 

I * * 

J ** ** 

J * * 

J * * 

J ** ** 

20+ * * 

J * * 

j_ * * 

J * * 

1 * * 

J * * 

30+ * * 

J * * 

J ** ** 

J * * 

1 * * 

J * * 

40+ * * 

J * * 

1 * * 

J * * 

J ** ** 

J * * 

50+ * * 

J ** ** 

J * * 

J * * 

J * * 

J * * 

60+ * * 

J * * 

J * * 

J * * 

J * * 

J ** ** 

70+ * * 

J * * 

J * * 

-30 -20 -10 10 20 30 40 
Figure 6.2 Output from the Subroutine XYPLOT 
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PLOTS (Y.NF,NP, XI, XINC) Plot up to 8 functions, 

PRINTS (Y,NF,NP, XI, XINC) Tabulate up to S functions. 

XYPLOT(X,Y,ND) Plot x-y data. 

XYPRNT(X,Y,ND) Tabulation of x-y array data with x-array sorted 

internally in an ascending order. 

SEMIDG(X,Y,ND,KODE) Plotting with one axis on log scale. 

K0DE=1 X-axis on log scale 
K0DE=2 y-axis on log scale 

LDGLOG(X,Y,ND) Plotting of x-y array on log-log scales 

POLAR (RHO,THETA,ND) Polar plot for rho-theta array; theta in degrees 

The users will also find that other plotting routines are available in 
almost every canned software package.* 

6.3 Plotting on a Plotter 

A plotter has a mounted pen that can be controlled for its movement as 
small as 1/500 inch. Therefore, it is capable to produce superb c[uality graphs 
and plots. Basically, a plotter makes a figure by moving the fen from one 
position on the paper to another either with the pen UP or with the pen DOWN. 
These movements are controlled by incorporating in the main program a series of 
FORTRAN subroutines, which translate the user's requirements into detailed pen 
movement instructions. A set of basic FXDRTRAN-callable subroutins will be taken 
up later \4ien we get to the CalComp section of the chapter. At this point, we 
will look at two types of software routines that are used in producing plots 
quickly on the Calcomp plotter. One is a group of "quick" plot suloroutines that 
can be incorporated into user's FORTRAN program; the other is a group of 
stand-alone interactive programs.* 

It should be noted that the plotter is a very slow device. Therefore, 
plots must be queued. After the execution of the program, the software only 
produces a plotter-file ; it does not produce a plot per se. After the plotter 
file is produced, it will take another monitor commcind "PLOT file" to actually 
queue a plotting job, such as: 

.PLOT *.PLT 



*At University of Pittsburgh, in addition to the routines presented here, also 
available are a group of printer plot subroutines in PRG.GIW^PH.REL and a 
stand-alone CalComp routine named PRG: GRAFIC.EXE. See References 5 and 6, 
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(1) The Quick Plot Subroutines 

Two "quick" plot subroutines, QIKPLT AND QIKLOG, will be presented 
here. They are both developed at the Pitt Computer Center. The 
subroutine QIKPLT will plot the x-y array data on a linearly scaled plot; 
the subroutine QIKLOG will plot the x-y array data either on a semi-log 
or a log-log plot. Both subroutines were developed at the Pitt Computer 
Center. They produce plots that will fit into standard 8.5-by-ll inch 
letter-size paper. The input parameters of the subroutines, beside the 
required x-y array data and number of data points, will include the 
following : 

(1) Title of the x-axis 

(2) Title of the y-axis 

(3) Title of the plot 

(4) Option of which symbol (or no symbol) to represent every nth 
data point. 

(5) Option of whether to join the points by lines. 

(5) Option of placing grid lines (or omit them) on the plot. 
The calling sequence is as follows: 

CALL QIKPLT (PI, P2,P3,P4,P5,P6,P7,P8,P9,P10,P11) 
CALL QIKLOG(P1,P2,P3,P4,P5,P6,P7,P8,P9,P10,P11,P12) 

The parameters are explained as follows: 

PI X-array, real, dimensioned at least 2 more than the value of P3. 

P2 y-array, real, dimensioned at least 2 more than the value of P3. 

P3 Number of data points to be plotted, integer constant/variable. If 
you want grid lines on the plot, specify a negative number of 
points. Positive P3 will omit grid lines. 

P4 X-axis title. If expressed in ASCII string, it will have the form 
of characters enclosed within single quotes, such as 'Time in 
Seconds'. If expressed dimensioned variable, they have literal 
constant values, such as 'Time ', 'in Se' , 'conds' for 
(KARAC(I) ,1=1,3) . They must be in (A5) format. Maximum length of 
string is 45 characters or (9A5) format. 

P5 Y-axis title. Same definition as in P4. Maximum is 57 characters. 

P6 Title of the plot; same definition as P4. No maximum. 

P7 Number of characters in x-axis title, including anbedded blanks. 
Integer constant/variable; maximum value is 45. X-axis title is 
omitted if P7=0. 



238 CHAPTER 6 COMPUTER GRAPHICS 

P8 Number of characters in y-axis title, including emtx^ded blanks. 
Integer constant/variable; maximum value is 57. P8=0 means no 
y-axis title. 

P9 Number of characters in the plot title, including emb«x3ded blanks. 
Integer. P9=0 means no title for the plot. 

PIO Signed integer code for options of how to join points by lines: 

PIO = positive integer, say n. Lines will join every nth data 
point by a symbol specified by the Pll parameter. 

PIO = 0: The points are joined by lines with no symbols. Pll 
value, if given, is ignored. 

PIO = negative integer, say -n. The points are marked by a symbol, 
specified by the parameter Pll, every nth data point. No 
line is drawn to join them. 



Pll Integer code for the symbol choice to mark a data point: 



Pll Code 


Symbol 





a 


1 


o 


2 


£i 


3 


H 


4 


X 


5 


<> 


6 


t 


7 


X 



Pll Cod 


S^mibol 


8 


z 


9 


Y 


10 


» 


11 


* 


12 


X 


13 


1 


14 


« 



P12 Option code for log plot routinfe: 

P12=-l to request a semi-log plot, with x on log sccile 

P12= to request a log-log plot 

P12=+1 to request a semi- log plot, with y on log scale. 

The process of using these quick subroutines is quite straight forward: 
In the main program, be sure to dimension X and Y arrays at a dimension two more 
than actually needed by the array. Also, dimension those ASCII variables that 
are needed for the titles. Then: 

(1) Read, or generate, or calculate the x-y arrays. 

(2) Call the quick plot routine 

Example ; 

CALL QIKPLT(X,Y,-50,'Time in Seconds' , 'Voltage in Volts', 
1 "FILTER RESPONSE', 15, 16, 15, -1,4) 

This subprogram call will produce a plot of 50 data points not 
joined by lines, but each point is marked by a X symbol. Hhe titles are 
supplied as indicated in the parameter list. 
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Example ; 

Here we will recount how the plots in Figure 5.4 were made (see Page 
220) . The data from the CSMP run were saved as three files DATA1.DAT, 
DATA2.DAT and DATA3.DAT and in a a format of (2E) . 

The following program was prepared: 

REAL X(IOO) ,Y{100) 

DOUBLE PRECISION FLNAME(3) 

DATA FLNAME/ ' SUSP, DAT ' , ' IMMP. DAT ' , ' INFP. DAT ' / 

DO 500 K=l,3 

OPEN (UNIT=1 ,FILE=FLNAME (K) ) 
DO 10 1=1,1000 

READ(1,50,END=20)X(I) ,Y(I) 
10 CONTINUE 

STOP 
20 NPT=I-1 

* 

IF(K.EQ.1)C.ALL QIKPLT(X,Y,NPT, 

1 'Time in Seconds' , 'Voltage in Volts', 

2 ' FILTER INPUT VOLTAGE ' , 15 , 16 , 20 , , 0) 
IF(K.GE.2CALL QIKPLT(X,Y,NPT, 

1 'Time in Seconds' , 'Voltage in Volts', 

2 'FILTER OUTPOT TRANSIENT' ,15,16,22,0,0) 
CLOSE (UNIT=1) 

* 

500 CONTINUE 

50 F0RMAT(1X,2F15.4) 

STOP 

END 

The output from this program has been previously shown in the last 
chapter as Figure 5.4(a) . 

(2) The interactive Plot Programs 

Although the quick plot routines are very convenient to use, they 
both have long lists of parameters, and they tend to be error-prone. 
Therefore, convenience can be enhanced by incorporating the graphic 
routines into an interactive program, in which the plot routine 
parameters will be entered and guided by an interactive dialogue. 

Two programs using this approach will be presented here: 

The CALPLT Program in ENG: 

One of the program unit in ENG: is CALPLT, an interactive program 
for CalComp plotting. By interactive dialogue, the user enters inputs, 
such as the data filename, and all titles. The counting of characters is 
done automatically within the program. The listing of the program is 
shown. To invoke and execute the program, use the standard Engineering 
Library call:"PIL ENG:CALPLT" . For other Library programs, see 
Appendix B, 
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********************* 



ENG:CALPLT.FOR 



* Interactive program to do a Calcomp plotter job 

* Require data set file with one point per line (2 real constants 

* in either (2E) or (2F) format. 

* Will produce as an output a plotter file XXXXXX.PLT ready to queue. 

* Option of linear, semi-log, or log-log plot 

* Maximum 200 data points 

REAL X(202) ,Y(202) 

DOUBIE PRECISION FUWME 

INTEGER XTITI£(12) ,YriTLE(12) ,CTITLE(12) 

DATA XTITLE/12*' '/.YTITLE/12* ' '/,GTITLE/12*' '/ 

DATA KARE,KARF/'E','F'/ 

WRITE(6,80); READ ( 5 , 90 ) KOP 

WRITE(6,100) J READ(5,11U)FINAME 

OPEN (UNIT=1 ,FILE=FIWAM£) 

WRITE(6,120); READ(5,130)KKK 

DO 10 1=1,1000 

IF(KKK.EQ.KARE)READ(1,140,END=20)X(I) ,Y(I) 
IF(KKK.EQ.KARF)READ{1,150,END=20)X(I) ,Y(I) 
10 CONTINUE 

STOP 
20 NPr=I-l 

30 WRITE(6,160); READ(5, 130) (XTITLE{I) ,1=1,12) 

CALL KARAC(XTITLE,LX);IF(LX.CT.45)WRITE(6,170);IF(LX.GT.45)GOTO 30 
40 WRITE (6, 180); READ(5, 130) {YTITLE(I) ,1=1,12) 

CALL KARAC(YTITI£,LY);IF(LY.Gr.57)WRITE(6,170);IF(LY.Gr.5'')GOTO 40 

WRITE (6, 190); READ(5,130) (CTITLE(I) ,1=1,12) 

CALL KARAC(CTITLE,IJ3) 

IF(K0P.EQ.1)CALL QIKPLT(X,Y,NPT,XTITLE,YTITLE,(?riTLE, 
1 LX,LY,D3,0,0) 

IF(K0P.EQ.2)IXX?r=-l 

IF(K0P.EQ.3)L0GT=1 

IF(KOP.EQ.4)LOGr=0 

IF(K0P.C3r.l)CALL QIKL0G(X,Y,NPT,XTITLE,YTITLE,OriTLE, 
1 LX,LY,IC, 0,0,1001) 
80 FORMAT (/" PLOT OPTIONS: OPTION = 1 FOR LINEAR PLOT', 
1 /17X, 'OPTION = 2 FOR SEMI-LOG PLOT, X-AXIS LOG SCALE', 

2 /1 7X, 'OPTION = 3 FOR SEMI-LOG PLOT, Y-AXIS LOG SCALE', 

3 /1 7X, 'OPTION = 4 FOR DOG-LOG PLOT.'// 

4 ' ENTER OPTION = '$) 
90 FORMAT (I) 

100 FORMAT (/' INPOT FHJENAME='$) 

110 FORMAT (AlO) 

120 FORMAT!/' DATA FORMAT IN EITHER 2E OR 2F FORMAT YOUR ', 

1 'FILE, E OR F?'$) 
130 FORMAT (12A5) 
140 FORMAT {2E) 
150 FORMAT (2F) 

160 FORMAT (/' X-AXIS TITLE='$) 
170 FORMAT(/' TITLE TOO LONG, TRY AGAIN.') 
180 FORMAT (/' Y-AXIS TITLE='S) 
190 FORMAT (/' PLOT TITLE='$) 
END 

* SUBROUTINE KARAC * 
************************ 

* To count number of character in an ASCII variable array 

SUBROUTINE KARAC (ASCII ,I£NGrH) 
INTEGER ASCII (12) 
DATA JB/32/ 
DO 10 1=1,12 
IX=13-I 
DO 10 J=l,5 

JX=6-J; JBIT=(JX-1)*7; JKAR=LDB(JBrT,7,ASCII(IX) ) 
IF(JKAR.NE.JB)GOTO 20 
10 CONTINUE 

LEN&TH=U; RETURN 
20 LEW;31'H=5*(IX-1)+JX; RETURN 
END 



Listing for ENG:CALPLT.FOR 
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The PLOTIT Program in USL; 

An excellent and convenient interactive program with many plot 
options is available in the User Library USL: It was developed at the 
University of Pittsburgh by Professor Frederick Gottlieb of the 
Biological Sciences Department. It has options of entering the data by 
stored files, or by typing in the data at the terminal. It allows the 
user to choose, among others, number of curves on one plot (6 maximum) , 
X- or y-axis as the "long" axis or else a square plot, labels and titles, 
tic marks, data point symbols, smooth (French curve fit) or 
connecting-line curves. Perhaps, the best way to show how this 
interactive program works is to reproduce the interactive dialogue of an 
actual run. 

Therefore, the data files DA. DAT, DB.DAT, and DC. DAT that produce 
Figure 6.1 are used again for illustration. As in the consistent 
practice in this book, the user's response in a dialogue is re-typed with 
italics and underscored. 



6.4 Preview of Plotter Output 

The plotter is a very slow device, and therefore v^en a plotter job is 
queued, there is generally a long turn-around time. If a mistake is made, or if 
subsequent processing is dependent on the graphic output result, the delay here 
represents a serious bottleneck. Typing or printing out a plot file will be 
useless, because it contains codes that can be understood only by the plotter. 

At the University of Pittsburgh, both the CalComp Plotter and the 
Tektronix 4010-series graphics terminals are available and supported. A program 
TEKPLT has been implemented by the Computer Center staff to display a plotter 
file on the Tektronix graphic terminal, thus providing an opportunity to preview 
the plotter output. TEKPLT may be called and executed by a monitor command of: 

.R TEKPLT 

The system will respond with a request for the plotter file name: 

Enter file name > 

If you don't know the name of the plot file, use a DIRECTORY command to 
find out, for example: 

.DIRECT *,PLT 

The filenames of all plot files will be printed out. 

After the filename of the plotter file is supplied, TEKPLT will draw the 
plot on the Tektronix screen, and will automatically adjust the size to fit the 
screen. If the long and narrow dimension of the plot fits the wrong way, give a 
TEKPLT command of "I" (without carriage return) to rotate the plot 90 degrees. 
Other TEKPLT commands are detailed in References 7 and 8. 



Welcome to PLOTIT (tev. 9 Jan 80.) 

■nils program will call existing data sets and plot them with up to 

6 curves per plot (i.e., axis set), and upper/lower case notation. 

It is suggested that you use JCfTTER to write the data sets for plotting. 

Do you want the FORMAT details for data sets which are compatible 
with PLOTIT? (Answer yes or •no.)>^f^ 

The data set lines must be in the format (lx,3fl5._), where the first two value 
s are X and Y coordinate values 

and the third value is an error bar value - usually the standard error of the me 
an of Y- and will have the value of 
zero if no error bars are to be drawn. 
Data sets should not exceed 200 X, Y and Error values. 

Do you want to write a data set?(answer yes or no) > A'O 

Do you want to plot now? (Answer "yes or no) > yfs 

Please give me a name for this plot file. 
(6 character mdaimiia) > SAMPLE 

How many curves on this plot? (answer with an integer between 1 and 6)>± 

What is the nane and extension of the first data file? (name.ext)> M./MT 

What is the name and extension of the second data f ile? (name.ext) > nn. DAT 

What is the name and extension of the third data file? (name.ext) > ft?. Mr 

Which is the long axis? (Type x or y or s [for a square box plotl)>r 

Want plot with numbers and labels?>'i'p5 

Is either axis a log axis? (answer yes or no) >/i'(J 

What is the value at the x-origin?>0_ 

What is the highest axis value of x?>£fl 

How many scale units between labeled tics on x?>2f) 

Want tics between labeled x tics? (answer yes or no) >yff5 

How many tics between labeled tics? (integer between' 1 and 9)>fl. 

What is the value at the y-origin?>(7 

What is the highest axis value of v?> WOO 



How many scale units between labeled tics on y?> ^00 

Want tics between labeled y tics? (answer yes or no) > ^I'.V 

How many tics between labeled tics? ( integer between' 1 and 9)>_£_ 

Type the x-axis label (30 character maximun) 

Label will be in upper and lower case, the symbol "~" will plot as "+" , 
enter the label with a "@" after the last character 
:< 30 characters >:(ie, between the t*o ":") 

>mMBEH OF UAVnP 

Type the y-axis label (30 character maximun) 

Label will be in upper and lower case, the symbol "~" will' plot as "+", 

enter the label with a "§" after the last character 

:< 30 characters >: (ie, between the two ":") 

^mi'^BFR OF PEnf'OfiSfl 

How many decimal places in the x t^s? (0,1, 2, etc. or 9=integer)>^_ 

How many decimal places in the y tags? (0,1, 2, etc. or 9=integer) >fl_ 

Do you want to alter the size of the output plot? Answer yes or no.^y/.;. 

You may shrink the plot to as small at 0.25 x; or you may expand up to 2.D0X 
Ttie 8 1/2 x 11 inch page- 'box will be omitted. 
Please choose a magnification factor between 0.25 and 2.00>_r^j? 

Do you want a ticked upper and right axis also? Answer yes or no.>yff£ 

First Curve 

ftow many data points to be ploted? (enter an integer between 1 and 20U)>-Jf' 

Want symbols at data points? (answer yes or no) > YES 

Please choose your symbol for this plot, 
type the appropriate two letter code from this list: 

Code letters Symbol 

oc = open circle 

fc = filled circle 

od = open diamond 

fd = filled diamond 

OS = open square 

fs = filled square 

ot = open triangle 

ft = filled triangle 

cr = cross (x) 
Which symbol do you want?> FC 

Do you want a smoothed french curve fit? (answer yes ot no)> ED 

Answer yes or no!>J2i>I 



Second Curve 

How many data points to be ploted? (enter an integer between 1 ard 200)>££ 

Want symbols at data points? (answer yes or no) ' >7ES 

Which symbol do you want?>Ff 

Do you want a smoothed trench curve fit? (answer yes or Tto)>YES_ 

Third Curve 

How many data points to be ploted? (enter an integer between 1 and 200) >4g 

Want syittools at data points? (ansv«t yes or no) > YES 

Which symbol do you want?> FT 

Do you want a smoothed french curve fit?(answer yes or no) > YES 

The plot file SAMPLE. pit is now in your directory. 

Want to draw another graph now? answer yes or no> ;V0 

Then we'll stop now. Have a good day. 
STOP 

End of execution POKOTS 5B(1001) 
CHJ time: 4.70 Biased time: ''i 25.28 
EXIT 

■DIBKCT *.PLT 

SAMPLE PLT 48 <057> 29-Oct-80 USBB: [115036,320571] 
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Figure 5.3 Plot Produced by PLDTIT 



Total of 2 minutes in 1 file in PLT request / Sequence number 10045 
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Figure 6.4 includes a group of reproductions of hardcopies of the 
TEKTRONIX-4010 displays for the PLDTIT runs that prepared Figure 6.3. During 
the run, some mistakes were inadvertently made in the input phase of PLOTIT. 
With the preview capability of the TEKPLT program, these mistakes were evident 
in the preview displays. Valuable time and plotter resources were saved. After 
a preview sessiort, only the satisfactory plot file was submitted for the actual 
plotter job. 

Some DEC-10 installations have developed simulator programs that will 
print out a CalComp plot on a printer for preview purpose. Users should check 
with their local installation about their availability. 
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Figure 6,4 Plots Previewed Using TEKPLT Program 
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GENERAL GRAKIICS 



In the general graphics applications using a plotter or a graphic 
terminal, software becomes very much hardware-dependent. The result is that if 
two DEC-10 facilities have different graphic hardwares, their software may not 
necessarily be compatible. Two types of graphics hardware will be considered 
here: one is to produce hardcopy and is essentially a plotter; and the other 
is to produce soft copy and is essentially a CRT terminal. Selected for 
inclusion in this part of the chapter are" the discussions on two software 
packages: the CalComp subprograms, and the Tektronix PLOT-10 System. Both are 
in the forms of FORTRAN-callable subroutines. 



A PRIMER FOR THE CALCOMP PLOTTER 



6.5 Basic Principle of a Digital Plotter 

There are many different manufacturers of digital plotters. Probably the 

most commonly used type is the CalComp plotter, manufactured by California 

Computer Products, Inc., Anaheim, California. Actually, the basic principle for 
all digital plotters is very similar. 

In a digital plotter, the pen is attached to a ribbon or wire and can 
move along a linear guide. This is the y-direction movement. To the right 
angle of the pen guide, the x-axis movement is provided by either of two ways as 
shown in Figure 6.5. 




.:Je (r) 



^JiTSaf t^i^'iJe (X) 




Flatbed Type Plotter 



Drum Type Plotter 



Figure 6.5 Two Basic Types of Digital Plotters 



In a flat-bed type plotter, the movement of another linear guide 
perpendicular to the y-movement provides the x-movement. In a drum-type 
plotter, the pen can only travel in the y-direction, but the drum may turn. Its 
rotation, or the relative motion with respectt to the pen, provides the 
x-movement . 
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Movements in each direction are controlled by precision servo 
step-motors, and each "step" movement is translated by a reduction gear train to 
a precise pen movement in the x- or y-direction. This incrementa l pen movement 
defines the basic resolution of a plotter. Commercial incremental digital 
plotter ranges from 1/40 inch to 1/500 inch or better. 

Since the x- and y-movements are incremental , each step of pen movement 
is a combination of the x-y increments. As a result, there are only eight 
possible ways that a pen can move in one increment. 




(a) Basic Incremental 
Pen Movements 



|.~^ 1 Tplottev inovement, 1/40 to 1/SOO" 



- I i 



b) Drawing a "Straight" Line 
(Enlarged approxLiiately 75 times) 



Figure 6.6 Incremental Pen Movements 



As shown in Figure 6.6(a), the eight possible ways of incremental pen 
movement, borrowing the term from tlie points of a compass, are E, NE, N, NW, W, 
SW, S, and SE. Thus, to move linearly from point A to point B, the actual path 
of the pen, and therefore the trace it draws, is actually a zigzag step line as 
shown in Figure 6.6. (b). Fortunately, the resolution of the plotter is fine 
enough that the zigzags will not be visually noticeable. 

In addition to the x- and y-movements, the pen can be lifted or lowered 
on paper. When the pen is lowered and moved, it traces a line. When the pen is 
lifted and moved, there is no line. This simple pen ability is necessary in 
order to skip from one point to another. 

Therefore, a basic plotter instruction is rather primitive. It tells the 
plotter to lift or lower the pen, or keeps the pen position as is. It tells the 
plotter one of the eight directions of incremental pen motion. Such raw 
instructions are too cumbersome for application. Therefore, a plotter 
manufacture usually provides a basic plotter language that includes a set of 
plotter instructions. Thus, CalComp has CalComp language; Gould has Gould 
language; Hewlett-Packard has its language. The list goes on. To canpound the 
proliferation, each local installation then develops its own high-level 
(FORTRAN-callable) subroutines based on the plotter language. Hence, the 
subroutines used at one installation may not be run at another . When a user 
faces this situation, there are two options. One way is to obtain a software 
package fran the installation, where the language was develop«K3, by purchase, 
lease, or exchange. The other way is to develop a simulator wtiich translates 
the foreign subroutine calls into the local subroutine calls. 

Next, let us plan a drawing as shown in Figure 6.7, To obtain a 
perspective, the figure is superimposed on a coordiante grid lines, with the 
lower left corner being the origin (0,0). 
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Figure 6.7 Drawing a Figure 



STOP 



In the presentation that follows, the materials will be based on the set 
of plotter routines that were either furnished by CalComp or developed at the 
University of Pittsburgh. 



6.6 A Primmer on CalComp Plotter Subroutines 



At the University of Pittsburgh, a CalComp 936 metric digital pen plotter 
is installed with the DEC System-10. A number of the plotter routines are 
supplied by California Computer Products, Inc., the manufacturer of the plotter, 
and many were developed by the Computer Center staff. Collectively, these 
FORTRAN-callable subroutines are stored as PRG:PLTLIB.REL, which is also 
incorportated into the FORTRAN system library. Thus when a program PRGM.FOR 
containing plotter routines is to be executed, the monitor command issued should 
be: 



or , 



.EXECUTE PROVl.FOR 

.EXECUTE PRGM.FOR, PRG: PLTLIB/LIB 



When the execution is completed, there is a plot-file (with an extension PLT) 
generated in the user's disk. A PLOT monitor catimand for that plot file will 
queue the plot- job, and a plotter output will be made. 

Among the CalComp subroutines, many parameters pertain to the lengths and 
coordinates. It may be set to either the English system (in inches) or the 
Metric system (in centimeters) by calling the subroutine METRIC: 



CALL METRIC (LOGIC) 



vi*iere: 



LOGIC=.TRUE. 
IDGIC.= . FALSE. 



for linear measurements in centimeters, 
for linear measurements in inches. 
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This subroutine may be placed anyv^iere in a program, and the system of 
measurement selection takes effect after that subroutine call. If no such 
subroutine is called, the default system is Metric. 

Thus, one can not only select the system but also switch the system from 
one to another at will. In the presentation of the Plotter Primer of 
Subroutines that follows, all linear measurements will be in centimeters for 
reason of consistency. If a user wishes to use these subroutines in English 
system (in inches), a "CALL METRIC ( .FALSE.) " FORTRAN statement should be given 
first. 

The selected CalComp subroutines are divided into six groups: 

(1) Initializing and terminating a plot 

(2) Re-defining the new origin and scales 

(3) Basic pen movements 

(4) Annotation of symbols and numbers 

(5) Axis and scales 

(6) Lines and Curves 

They are now presented next. 

(1) Initializing and terminating a plot 

When a plot job is initialized, three major events will be performed: 
Plot area bounds will be established; a plot file is opened in your disk; and 
all options are assigned with default values. 

When a plot job is finished, that plot-file must be closed. Even within 
the same program, one should always terminate (close) one plot-file before 
enbarking on another plot job. Failing to that would get a drawing with several 
drawings superimposed on each other. 

The subroutines of this group are shown in Table 6,1. 

(2) Redefining the origin and the scales 

When a plot job is initialized, the origin is set at the lower left 
corner of the plot area, and scale is set to the actual centimeters or inches. 
This may be very inconvenient. Allowing redefining the new origin and new 
scales are a group of subroutines as shown in Table 6,2. 

(3) Basic pen movements 

This is perhaps the most fundamental plotter routine. It moves the pen 
from the current position to another specified position, leaving on the paper 
with or without a tracing. All plotting routines in the CalComp software are 
built upon this routine. This is shown in Table 6.3. 

(4) Annotation of symbols and numbers 

Annotations in text are represented in ASCII string constant or in string 
array variable with A5 formats. Symbols are defined according to a coding 
table, v^ere each symbol is represented by the decimal equivalent of its ASCII 
code. The codes for symbols are shown in Table 6.4. The subroutines for 
annotation are shown in Table 6.5. 
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(5) Axis and scales 

Among the most useful routines are those which automatically scales and 
draws the axis, either linear type or logarithmic type. The axis can be labeled 
with symbols and numbers and tic marks. The group of routines that draw axis 
and scale them are shown in Table 6.6. 

(6) Lines and curves 

In this group are routines that plot lines in cartesian or polar 
coordinates, in linear or logarithmic scales. Option of smoothing is available. 
Higher order routines of drawing catimon geometric patterns, such as circles, 
ellipses and polygons are provided. These routines are grouped in Table 6.7 and 
Table 6.8. 



6.7 Examples of CalComp Programming 
Example 1 ; 



Write a program to draw the figure as 
shown in Figure 6.7. 



FORTRAN program: 




CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
END 



GRAPH (10 
PLOTd.O 
PLOT(2.0 
PLOT(6.0 
PLOT(7.0 
PLOT(7.0 
PLOT(5.0 
PLOT(5.0 
PLOTd.O 
PLOTd.O 
PLOT (5.0 
PLOT(5.0 
PLOT(6.0 
PLOTO.O 
PLOT(3.0 
PLOT (2.0 
PLOT(2.0 
ENDPAG 



.0,10.) 
,5.0,3) 
,8.0,2) 
,8.0,2) 
,5.0,2) 
,3.0,2) 
,2.0,2) 
,5.0,2) 
,5.0,2) 
,2.0,2) 
,2,0,2) 
,5.0,3) 
,8.0,2) 
,5.0,3) 
,3.0,2) 
,3.0,2) 
,5.0,2) 



After the execution of the program, find out v^tlat is the 
computer-assigned name of the plot-file by a command ".DIRECTORY *.PLT", 
Suppose the directory shows a "QRUS3.PLT" file created. Then sutxnit a plotter 
queue job by another ccnmand ".PLOT QRUS3.PLT". 

The series of monitor command given to go through the sequence was: 



.EXECUTE PRGM,PRG:PLTLIB/LIB 
.PLOT *.PLT 
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Subroutine: 


CALL GRAPH (WIDTH, HEIGHT) 


Function: 


To initialize a plot by: setting the plot area limit, opening an output 
plot-file in the user's disk, and moving the pen (UP) to the lower left corner 
,of the plot area (coordinate 0,0). This call must precede all other plotter 
subroutines. 


Parameters: 




WIDfTH 
HEICHT 


Width of plot area permitted, ranging from 1 to 130 centimeters. 
Height of plotting area permitted, ranging from 1 to 80 centimeters. 


Subroutine: 


CALL SNDPAG 


Function: 


To terminate the plot and to close the plot-file. This call must be given at 
the end of a plot; otherwise, no plot-file will be stored. 


Parameters: 


^kDne 


Subroutine: 


CALL GRAPH2 


Function: 


To re- initialize another plot in the same program. The plot size remains the 
same as defined by a previous GRAPH subroutine call. If there is no previous 
GRAPH call, the size is set to a default size of 30. 5cm(width) by 23cm (height) . 


Parameters: 


None 



Table 6.1 CalComp Subroutines - Initializing and Terminating a Plot 



Subroutine: 


CALL ORIGIN (XNEW, YNEW) 


Function: 


To translate the origin to a new point with the coordinates (;iNEW,YNEW) with 
respect to the lower left corner of the plot area defined by the subroutine 
GRAPH call. When the plot is first initialized, the origin is set to that 
point. 


Parameters: 




xnew,™em 


The coordinates of the new origin with respect to the lower left corner of the 
plot as defined by GRAPH. 


Subroutine: 


CALL PSCALEiXCALE, Y SCALE) 


Function: 


To change the size of the plot. 


Parameters: 




XSCALE,YSCALE 


The X- and y-scale factors respectively applied to the abscissa and ordinate 
values. 


Subroutine : 


CALL LORGIN(XLORGN, YLORGtl) 


Function: 


To specify a logical origin if the size of a plot is changed by the subroutine 
PSCALE call. 


Parameters: 




XLORGN,YL0RGN 


The logical origin with coordinates with reference to the previously defined 
ORIGIN. 



Table 6.2 CalComp Subroutines - Redefining Origin and Scales 
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XEND,YEND 
KODE 



CALL PLOTfXEND, YEND, KODE) 

To move the pen from the present position to (XEND,YEND) with the pen UP/DOWN 
position defined by KODE. 



The coordinates of the destination point. 
Pen code: • 3 for pen UP. 

2 for pen DOWN 

0,1 for no change 
This is the basic subroutine upon which all other plotting routines are based 
on. 



CALL PENDN 

CALL PENUP 

To lower or to lift the pen, no x-y movement. 

None 



Subroutine : 



XEND,YEND 
KODE 



CALL SIlOOTiXEND, YEND, KODE) 

To plot a smooth curve using a spline-fit technique. 



As defined in PLOT or as below. 

Initial call of SMOOT must have KODE=0 or -1 to place it in the "smoothing 

mode." 

KODE Meaning 

Define (XEND,YEND) as an initial point. Vc\e last point 

and the intial point will not be joined later. This is 
to draw an open curve. 
-1 Define (XEND,YEND) as an initial point on the curve. 

The last and the first point will be joined later. 
This is to draw a closed curve. 

After the initialization of smoothing mode, other values of KODE may be 
applied and interpreted as: 

KODE Meaning 

-2 Plot smoothed line, pen DOWN. 

-3 Move the pen aloryg the smoothed line, pen UP. 

+2,4-3 Interpreted the same way as in PLOT subroutine. 



XEND,YEND 
DASH 



CALL DASEPdEWD, YEND, DASH) 

To draw a dash line from the current position to (XEND,YEND) . 



The coordinates of the destination point 
The length of each dash. 



Table 6.3 CalComp Subroutines - Basic Pen Movement 
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Table 6.4 CalComp Symbol Table 



Omitting those code numbers from to 31, this code table is also known 
as the ADE (ASCII DECIMAL EQUIVALENT) code. 
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subroutine : CALL SY!4B0L( XBEGIN, YBEGIN, HEIGHT^ KARAC, ANGLE, KOBE) 

Function ; To draw the title text or a symbol. 

Parameters ; 

XBEGIN, YBEGIN The coordinates of the lower left corner of the first character to be drawn. 

HEIOIT The height of each character or symbol. 

ANGLE Angle in degrees at which the characters are drawn. For example; 



(100°) 



Eh time in seconds 

^ (0°) 



KODE, HEIGHT Defined as follows: 



Meaning 
KODE = number of characters in the KARAC parameter 
KARAC = Character string to be drawn; in ASCII constant 
(enclosed in single quotes) or as ASCII array 
variable. Array variable must be dimensioned in the 
calling program and in A5 format. 

KODE = -2; Center the symbol, Pen DOWN. 

KODE = -1: Center the symbol, Pen UP. 

KODE = 0; Symbol not centered, Pen UP. 

KARAC = an integer code of plotter symbol as defined in 

Table 6.4. 



Parameters: 



CALL NlimER( XBEGIN, YBEGIN, HEIGHT, FLOAT, ANGLE, KODE) 
To draw a number in FORTRAN F-format (floating point) format. 



XBEGIN, YBEGIN, HEIfflT, ANGLE As defined in the subroutine SYMBOL. 

FLOAT Real constant/variable for the floating point number to be drawn. 

KODE As defined below: 

KODE Meaning 

+n Number of digits to the right of decimal point. 

Rounded integer, drawn with a decimal point. 

-1 Rounded integer, drawn without a decimal point, 

-n P-Format scaling by the formula: FLOAT* (10** (KODE+1) ) . The 

constant is then rounded ard drawn without a decimal point. 



Subroutine ; CALL PLTSYM( XBEGIN , YBEGIN, HEIGHT, KARAC, ANGLE, NCHAR, NAME) 

Function : To plot symbols and characters whose positions are controlled by a user-supplied 

subprogram. 

Parameters ; 

XBEGIN, YBEGIN, HEIOJT, KARAC, ANGLE As defined in the subroutine SYMBOL. 

NCHAR Number of characters. 

NAME Name of the user-supplied subprogram. 



Table 5.5 CalComp Subroutines - Annotations with Symbols and Numbers 
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AXLEN 

NPT 

INC 



CALL SCALE (ARRAY, AXLEN, NPT, INC) 
CALL SCALG( ARRAY, AXLEN, NPT, INC) 

To determine the scale factor, nutiber of data units per unit lengthi (cm or inch) 
along the specified. axis. 

SCALE: linear scale 

SCALG: liOg scale 

Use this subroutine to scale separately the x-array ard the y-array. 



The first array element of the data point array. The arrray must t>e dimensioned 

in the calling program at least (NPT+2) . On return from this sut)routine (when 

INC=1): 

ARRAY(NPT+1) = .First value = FIRSTV used in subroutine AXIS or LGAXS 
ARRAY (NPT+2) = scale factor = DEDTAV used in subroutine AXIS or LGAXS 

Length of the axis 

Number of data values contained in the array ARRAY. 

Increment with which data values are selected. INC=2 means every other point. 



Subroutine: 



Parameters: 



CALL AXIS CXBEGIN, YBEGIN, KARAC, NCHAR, AXLEN, ANGLE, FIRSTV, DELTA V) 

CALL LGAXS (XBEGIN, YBEGIN, KARAC, NCHAR, AXLEN, ANGLE, FIRSTV, DELTAV) 

To plot a linear axis (AXIS) , or log axis (LGAXS) and annotate it with labels, 
title and tic marks. 



XBEGIN, YBEGIN, KARAC As defined in SYMBOL subroutine. 



NCHAR 



AXLEN 
ANGLE 
FIRSTV 
DELTAV 



AND 



Signed nimber of characters in KARAC. If there is no title, KAfiAC= 

NCHAR=1. 

If NCHAR=positive, the annotation is placed on the counter-clockwise side of the 

axis. (for Y-axis title) If NCHAR=negative, the annotation is placed on the 

clockwise side of the axis, (for X-axis title) 

As defined in subroutine SCALE. 

As defined in subroutine SYMBOL. 

First value drawn at the first tic mark, obtained from SCALE subroutien. 

Number of data units per unit length, obtained from SCA1£ subroutine. 



CALL GRID( XBEGIN, YBEGIN, DX, DY, NBLKX, NBLKY) 
To draw a linear and rectangular grid. 



XBEGIN, YBEGIN The lower left corner coordinates of the grid. 

DX Displacanent between grid lines along the x-axis. 

DY Displacanent between drig lines along the y-axis. 

NBLKX Number of blocks in the completed grid in the x-direction. 

NBLKY Number of blocks in the ccxnpleted grid in the y-direction. 



Table 6.6 CalComp Subroutines - Axis, Scales and Labels 
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Subroutine: 



Subroutine: 



CALL LINE (XARRAY, YARRAY, NPT, INC, LINCOD, SYMBOL) 

CALL DASHL (XARRAY, YARRAY, NPT, INC) 

CALL LGLIN (XARRAY, YARRAY, NPT, INC, LINCOD, SYMBOL, KODE) 

CALL POLAR (RARRAY, TARRAY, NPT, INC, LINCOD, SYMBOL, RMAX, DR) 

To draw a curve through the data points. 

LINE: To plot a linear plot with solid line. 

DASHL 
DGLIN: 
POLAR: 



-To plot a linear plot with dash line. 
-To plot a semi-log or log-log plot. 
-To plot a polar plot. 



Parameters: 



XARRAY, 

RARRAT, 

NPT 

INC 

LINCOD 



SYMBOL 
KODE 



YARRAY Data point arrays in Cartesian coordinates. 
TARRAY Data point arrays in Rjlar coordinates. 

Number of data points to be plotted. 

Increment between data points. 

Line code as defined below: 

LINCOD Meaning 

Line plotted but no symbol. 

1 Line and symbols at every data point. 

2 Line and symbols at every other point, 
n Line and symbols at every nth point. 

-n Symbols at every nth point, no line. 

An integer value specifying the symbol as defined in Table 6.4. 
Code for log plot type: 

KODE Meaning 

-1 Semi-log plot, X in log scale. 

Log-log plot 

1 Semi-log plot, Y in log scale. 
Maximum radius in actual centimeters or inches needed for the plot. If RMAX is 
zero or negative, the parameter DR is used as a scale factor. 
Scale factor for the plot. If RMAX is positive, DR is computed by the subroutine 

POLAR. If RMAX is zero or negative, the user must supply a computed DR. 



Table 6. 
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Example 2 ; 
shown t>elow: 



Either of two following programs will produce a grid as 



CALL GRAPH(12. 0,12.0) 

CALL ORIGIN (1.0, 1.0) 

Y=-0,1 

DO 10 1=1,101 

Y=Y+0.1; I 10=MOD( 1-1,10) 
CALL PLOT(10.0,Y,2) 
IF(I10.NE.0)GOTO 10 
CALL PLOT (10. 03, Y+. 03, 3) 
CALL PLOT (0. 03, Y+. 03, 2) 
10 CONTINUE 

X=-0.1 

DO 20 1=1,101 

X=X+0.1; I10=MOD (1-1,10) 
CALL PLOT(X,0.0,3) 
CALL PLOT(X,10.0,2) 
IF(I10.NE.10)GOTO 20 
CALL PLOT (X+. 03, 10. 0,3) 
CALL PLOT (X+. 03, 0.0, 2) 
20 CONTINUE 

CALL ENDPAG 

END 



CALL GRAPH (12. 0,12.0) 

CALL GRID(0. 1,0. 1,1. 0,1. 0,100, 100) 

CALL GRID(1.03,1.03,1.0,1.0,10,10) 

CALL ENDPAG 

END 
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Subroutine: 



CALL CIRCLfXBEGIN, YBEGIH, THO, THE, RO, RF, DI) 
To plot a circular arc. 



Parameters: 



XBEGIN,YBEGIN The coordinates of the starting point of the circular arc. 

THO Radial angel at the start of the arc, in degrees 

THF Radial angle at the end of the arc, in degrees 

RD Starting radius of the arc 

RF Endii>g radius of the arc. 

DI DI=0.0 for solid line; DI=0.5 for dashed line. 



Subroutine ; 
Function: 



CALL ELIRS(XBEGIE, YBEGIN, RMAJ , RMIN, ANGLE, THO, THF, KODE) 
To plot an elliptical arc. 



XBEGIN,YBEG1N The coordinates of the starting point of the elliptical arc. 

RMAJ.BMIN Lengths of the semi-major and the semi-minor axis respectively. 

ANGLE Angle in degrees between the major axis and the x-axis. 

THO, THF Relative to the ANGLE, radial angles of starting and ending points of the arc. 

KODE Pen control code: 

KODE Meaning 

3 Pen UP from the current position to (XBEGIN,Y13EGIN) . 

2 Pen DOWN from the current position to {XBEGIN,YBEGIN) . 



CALL RECTfXBEGIN, YBEGTN, DEPTH, WIDTH, ANGLE, KODE) 
To plot a rectangle. 



XBEGIN,YBEGIN Coordinates of the lower left corner of the rectangle before rotation. 
EEPTH, WIDTH The y-x measuranents of recitangle size, before rotation. 
ANGLE Angle of rotation in degrees about the point {XBEGIN,raEGIN) . 

KODE Pen control code: 

KODE Meaning 

3 Pen UP before moving to the starting point. 

2 Pen DOWN before moving to the starting point. 



Parameters: 



CALL FOLY(XBEGIN, YBEGIN, SIDE, NSIDE, ANGLE) 
To draw an equilateral NSIEE-side .polygon. 



XBEGIN,YBEGIN Coordinate of the starting vertex the polygon. 

SIDE Length of each side of the equilateral polygon. 

NSIDE Number of sides. 

ANGLE Angle in degrees of the first side with respect to the x-axis. 



Table 6.8 CalComp Subroutines - Simple Geometric Patterns 
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Example 3 ; Example of AXIS calls and their outputs are shown in 
Fiqure 6.9: 



in 



CS5_ 
•— '^ 

UJ*' 

Cbcs 
I— oJ 



1<M 






1"' / ^.^yttJSrO. Oj 0. 0, 'TIMEJN_ SECONDS \, -15^ ^0. 0, 0. O.FX.DX) 



/ 



AXIS r^ . 0,_ O.J)^, 'yOLTAGE_ IN_ VOLTS 1, 16^, 10.0, §p.O, FY, DYJ 






•00 10.09 20.00 30.00 40.00 50^ 

TIME IN SECONDS - '^ 



Figure 6.9 Result of the AXIS Subroutine 



Example 4 ; A set of x-y data has been saved as DA. DAT fron a CSMP 
run. The data format is (2E) , one x-y coordinates per record. There are 46 
data points. Plot a curve and label the x-axis with "TIME IN MILLISECONDS", and 
y-axis with "VOLTAGE IN VOLTS". 



Program: 

REAL X(48) ,Y(48) ! 

OPEN (UNIT=1 , FILE= ' DA. DAT ' ) 

READ (1, 100) ((X (I) ,Y (I)) ,1=1,46) ! 
100 FORMAT {2E) 
* 

CALL GRAPH(15. 0,15.0) ! 

CALL 0RIGIN(2. 0,2.0) ! 

CALL SCALE(X, 10. 0,46,1) ! 

CALL SCALE (Y, 10. 0,46,1) ! 

FIRSTX=X(47); DELTAX=X(48) ! 

FIRSTY=Y(47); DELTAY=Y(48) ! 

CALL AXIS (0.0,0.0, 'TIME IN MILLISECONDS' 
1 -20,10.0,0.,FIRSTX,DELTAX) 

CALL AXIS (0.0, 0.0, 'VOLTAGE IN VOLTS', 
1 16,10.0,90,0,FIRSTY,DELTAY) 

CALL LINE(X,Y, 46, 1,0,0) 

CALL SYMBOL(4.0,10.0,0.5, 
1 'FILTER OUTPUT' ,0. ,13) 

CALL ENDPAG 

END 



DIMENSION 2 more than array size 
Read in data 



Initialize plotter 
Move origin 
Scale X-axis 
Scale y-axis 
Scale factor for x-axis 
Scale factor for y-axis 
, ! Plot X-axis, label 

below X-axis 
Plot y-axis, label to 

the left of y-axis 
Plot the curve 
Plot the title 

Job done; terminate 



After applying the execution command and the plot command afterwards, the 
output was obtained fron the plotter as shown in Figure 6.10. 
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^^■^f' 



x?c^' 



y^ 




,^v 



c,i^^ 



FILTER OUTPUT 



cC>- 



\f' 



10.00 20.00 30.-00 40.00 

TIME IN MILLISECONDS^ 



50.00 






Figure 6.10 CalComp Plotter Output of Example 4, Page 257 

Subroutine Names Show Their Respective Results, 
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A PRIMER OF GRAPHICS SOFTWARE FOR GRAPHICS TERMINALS 



Since there has not yet been any standardization of graphics software, 
selection of a software for the PRIMER must depend on how widely its ccmpatible 
graphics hardwares are available. While there are many manufacturers in the 
graphics area, perhaps the most widely used products are the Tektronix graphic 
terminals such as Models 4006, 4010, 4012/4013 or 4014/15. Serving these 
terminals is a collection of Tektronix-supplied software called the PLOT-10 
system. It includes a basic set of graphics terminal subroutines called the 
Terminal Control System (TCS) , an Advanced Graphing II System (AG II) , the 
Interactive Graphing Package, The "Easy Graphing" Package, the Interactive 
Graphic Library (IGL) , and utility routines. The TCS contains a group of 
FORTRAN-callable subroutines that is the basic building blocks for graphic 
operations and is supported at the University of Pittsburgh. The PRIMER part 
will only cover the TCS system. When a FORTRAN program, assuming named as 
PRGM.FOR, containing the TCS calls is executed, the execution ccsnmand is: 

•EXECUTE PRGM, PRG:TEKLIB/LIB 

where PRGrTEKLIB is the PLOTlO library (incuding AG II package) stored. This 
command must be given on a Tektronix graphics terminal (such as model 4010) , or 
on a PLOT-10 compatible terminal. 



6.8 Basic principle of a Graphics Terminal 



A typical graphics terminal is the Tektronix model 4010-1 (with various 
suffix designations) . Standard interface makes the terminal conpatible to the 
computer like a conventional terminal. Thus the communication between the 
computer and 4010 is in the ASCII codes. The graphics terminal can also be 
operated as a graphics display device when a special control signal is given. 
Thus a 4010 can operate in (1) "alpha mode" or (2) graphics mode. 

In the alpha mode, the 4010 operates as a conventional CRT terminal. 



In the graphic mode, the 4010 directs an electronic beam to 
1024 addressable points in each axis. 



any of the 



] Addressable and | 

I ton-visible Area i 





. .. 


' 


(O, 1S») (I0i3,7*>; 






Addressable and Visible 






(p, ) Uohi, t ) 











Figure 6.10 
Screen Size and Coordinates 



Thus the screen area has a 
coordinate system of 1024x1024 as shown 
in Figure 6.10. In the Y-axis, only a 
range of ordinate of 0-780 is within 
viewing area. An ordinate of 781-1023 
range is addressable, but it cannot be 
displayed. Thus each of the abscissa 
and ordinate information will require 10 
binary digits. Since the codes for 
ccmmunication between the ccmputer and 
the terminals are ASCII codes, these 
binary coordinates information needed 
for display must be "ccmouflaged" as 
ASCII coded characters. As each ASCII 
character is coded in 7 bits, 4010 uses 
two ASCII characters (14 bits, with 4 
bits to spare) to code the x-abscissa, 
and another two for the ordinate. 
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Thus, for every coordinate information, 4 ASCII 
transmitted fron the conputer to the graphics terminal. 



characters are 



When the terminal is in the graphics mode, the hardware will take a 
four-character group, strip away the most significant 2 bits from each 
character, and combine the remaining bits into the ordinate and the abscissa 
data. Figure 6.11 shows how a four-character group "SPACE", "[", "=", and 
"DELETE" is decoded into a coordinate of (959,27). 





ASCII 


5-bit 


Character 


Code 


Byte 


SPACE 


0100000 


00000 


[ 


1011011 


11011 


= 


0111101 


11101 


DELETE 


1111111 


11111 



Decoded Coordinates 



Y = 0000011011 = Decimal 27 



X = 1110111111 = Decimal 959 



Figure 6.11 Decoding of ASCII codes into Screen Coordinates 



The x-y information is then fed to the deflecting circuits of the CRT to 
move the beam. It is apparent that the coding and decoding of graphic 
information is very tedious. Fortunately, the coding of graphic information for 
transmission to the terminal is done by the PLOTlO software, and the decoding 
for display is done by the graphics terminal hardware. Also, unfortunately, 
these software and hardware in the graphics industry are not yet standardized. 



Example ; 



Set the graphics terminal on DXAL. 



(1) Press PAGE key to erase the screen. 

(2) Enter into graphic mode by pressing CTRL-SHIFT-M key. 

(3 keys pressed down together) 

(3) Enter the following 4-character groups: 

(each key pressed in sequence) 
SPACE DELETE SPACE (§ (Y=31 and X=0) 

7 DELETE SPACE (Y=767 and X=0) 

7 DELETE ? _ (Y=767 and X=1023) 

SPACE DELETE ? _ (Y=31 and X=1023) 

SPACE DELETE SPACE @ (Y=31 and X=0) 

These steps should trace a diagonal cross on the screen. 

To switch fron the alpha-mode to graphics mode, the computer will send an ASCII 
character CONTROL-SHIFT-M; to switch back to the alpha-mode, an ASCII code of 
ESC -FORMFEED. 



6.9 Terminology 

In the presentation of the PRIMER that follows, some terminology will be 
explained here first. 



(1) A/N 



This is an abbreviation for "alphanumeric." 



(2) A/N cursor A blinking marker to show the next character print 
position. This is the same as in any CRT terminal. 
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(3) Graphic cursor The graphic cursor on 4010 is a cross-hair cursor 
that may be controlled by two thumb v\^eels. This is used as positional input 
during graphic mode. 

(4) Home position The upper-left corner screen location at which the 
first character of a page is normally printed. Same as a conventional CRT 
terminal . 

(5) Or ig in The coordinate represented by (0,0). The screen origin is 
located at the lower-left corner. Virtual space has its origin at its center. 

(6) Raster unit The distance between two adjacent points on the 
screen'. This is the basic resolution element of the terminal. 

(7) Screen coordinates . The set of points which constitutes the 
screen. Range of the screen coordiantes is from to 1023 for both x and y. 
The visible range for y is from to 780. 

(8) Storage tube A CRT which will maintain a display, once written, 
for an indefinite priod unitl it is erased. The Tektronix 4010 is of such type. 
The stored display may be appended by additional display on the same picture. 
It cannot accommodate a subtraction of displayed information. Therefore, to 
even make a very minor non-appending modification of a display, the current 
display must be erased and redrawn. 

(9) Vector When the beam is moved from one point to another, the 
changes in the coordinates are translated into the voltage changes that applied 
to the deflection plates of the CRT. The changes are made into a linear 
function of time, and therefore the movement of the beam on the screen will be a 
straight line. This is called a hardware vector generator. The vector is then 
a line segment. A vector may be generated with the beam either ON or OFF, which 
is analogous to a plotter pen position DOWN or UP. 

(10) Absolute coordinates and relative coordiate s The absolute 
coordinates use either the screen origin or the virtual space origin as 
reference. The relative coordinates are incremental values in x and y (positive 
or negative) , using the current point as a reference. 

(11) APE (ASCII Decimal Equivalent) Code These are same as the 
conventional ASCII codes, except that they are represented in decimal integers. 
For example, upper case "A" is coded as decimal 65, see Table 6.4 (chapter 6) 



6.10 Screen Graphics and Virtual Graphics 

First, let us establish an analogous situation. When we use a graph 
paper to plot a curve, the graph paper size is fixed. Yet it will be capable to 
plot values of any range merely by defining two things: (1) the ranges of x and 
y, and (2) the scale factor for x and y. This is equivalent to "zoom" the 
real-world scale onto the graph paper size. Thus the measuranent of data 
directly on the graph paper would be referred to as " direct graphics ", and the 
zooming process is the virtual graphics . In the graj^ics terminal , we use the 
uterm " screen graphics " for the term direct graphics. The process of the 
virtual grapiiics involves a normalization and scaling of all data points and 
translating them into actual screen coordinates for the actual hardware display. 
This process is not difficult, but it is exceedingly laborious because it must 
be applied to all axis, all labels, all data points location, and all drawings. 
These laborious chores are spared by the virtual graphics software. Throught 
the use of the virtual graphics, it is possible to increase or decrease the 
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apparent picture size without having to change the data values. This 
effectively provides an elementary "zooming" capability mentioned aloove. Now we 
are ready to define a few more terms: 



(1) Screen space and screen coordinates 
section 6.9. 



These are as defined in 



(2) Screen window A rectangular section of the screen space. It is 
usually the section into which the virtual window is scaled and translated. 

(3) Virtual space this is a user-defined, data-structured rectangular 
display area which is independent of the terminal. 



(4) Virtual window 
into the virtual space. 



The translation of the screen window translated 



(5) Virt u al coordinates This is a set of point coordinates that 
constitues virtual space. Figure 6.12 shows the basic viewporting principle of 
zooming from the screen to virtual graphics. 

Note that in the virtual graphics, the sizes of the screen space, virtual 
space, screen window, and virutal window may be individually specified. 
Furthermore, in each rectangular specification, the width and the height can 
also be individually specified. This capability leads a wide flexibility of 
graphics display, some of which are shown in Figure 6.13. Note that an increase 
in the window specification decreases the apparent picture size (;joom-out) , and 
vice versa. Also note that v^en the window width and height are set not in 
proportion between the screen window and the virtual window, there will be a 
distortion of display. This distortion may not be objectional because it simply 
implies a scale change respectively in the x- arid y-d irections. If we are 
drawing scaled models, then this will result in a objectionable distortion. 



c^ci^en ^/cfi 



'^\ft\A.a.l •Space. 




Virtual lOinJti 



Qc2Z, 7go) 




(0,0) 



(loti^ c^)| 



i4se r Sp^c Iji^d 

Screen l^ji^ou) 



Figure 5.12 The Basic Viewporting Principle 



virtual Graphics 



263 



i — I 



I I 



'^ 


N 


v^.. 


y 




e 



Window width and height varied proportionally 



; r' 



-H: 







J L 

12 3 4 

window width and height not varied proportionallv 



(a) Fixed Virtual Snace (Size not shown) . Variable Virtual Window 




I 1 J_ 



r 



2 3 




fe 



(a) Fixed Virtual Window (Window 1) , Variable Virtual Space 
Figure 6.13 Projections by Virtual Graphics 
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6.11 A Basic Set of TCS Subroutines 

The PLDTIO software has a hierarchial structure. At the most primitive 
and lowest level is a set of basic TCS soubroutines. These subroutines define 
the fundamental operations of the graphics. Building upon these primitive 
subroutines are other more advanced TCS routines. Then the adv;mced graphing 
package and other graphics software are higher-level subroutines that use the 
TCS routines as building blocks. 

The basic TCS routines are presented in the following categories and they 
are respectively tabulated in five tables: (1) function control (Table 6.9), 
(2) screen (direct) graphics (Table 6.10), (3) virtual graphics (Table 6.11), 
(4) utility routines (Table 6.12) , and (5) cursor operations (Table 6.13) . 



Subroutine : 


CALL IKTT( IBAUD) 


Function: 


To initialize the Tektronix terminal for a graphics session. 
It will turn the terminal to the graphics mocJe, clear the 
screen, set ail graphic parameters to default vaiLues, set the 
transmission filler characters based on the baud rates, and 
move the beam to the screen origin. 


Parameters: 




IBAUD 


the transmission rate in characters/secor^. IBAUD=10,15,30, 
120 for 110, 150, 300 and 1200 bauds respecitvely. 


Subroutine: 


CALL FmiTT(IX,IY) 


Function: 


To terminate the graphics session and reset it to 
alphanumeric mode. Move the beam to a screen coordinate of 
(IX,IY). Typically (IX,IY) is the coordinate of the A/N home 
position (0,767) . 


Parameters: 




IX, lY 


final screen coordinate of the beam position to be set 


Subroutine : 


CALL ERASE 


Subroutine: 


CALL BELL 


Subroutine: 


CALL HDCOPY 


Function: 


ERASE To erase the screen 

BELL To sound an audible alarm to alert the user. 

Usually used as a non-displaying pranpt signal. 
HDCOPY To produce a hardcopy of the screen display 


Parameters: 


None 



Table 6.9 PLOTlO TCS Subprograms - Function Control 
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CALL DRWABSilX, lY) 

CALL MOVABSdX, lY) 

CALL PIlTABSdX, lY) 

CALL DSHABSdX^ lY, L) 

Screen graj^ics with absolute screen coordinates: 

DRWABS — To draw a vector from the current position to (IX, lY) 

MOVMS To move the beam from the present position to {IX, lY) 

PNTABS — to plot a point at the position {XX, lY) 

DSHABS — To draw a dash line from the present position to {IX, lY) 



Parameters: 



the screen coordinates of the destination point 
dash line codes: 



1 


5 


raster 


units. 


visible 


2 


5 


raster 


units. 


invisible 


3 


10 


raster 


units. 


visible 


4 


10 


raster 


units, 


invisible 


5 


25 


raster 


units. 


visible 


6 


25 


raster 


units. 


invisible 


7 


50 


raster 


units. 


visible 


8 


50 


raster 


units, 


invisible 



L is a dash line code that is a concatenation of the above code numbers. For 
example, when L=3454, the dash line will be drawn in the pattern of 
345434543454... where each code number is defined as above. 

When L is given as a single digit, it is interpreted as follows: 



causes a move 
causes a draw 
alternate visible and invisible segments between data points. 



CALL DRWRELdX^ lY) 
CALL MOVRELdX, lY) 
CALL PNTRELdX, lY) 
CALL DSHRELdX, lY, L) 

Screen graphics with relative screen coordinates: 

DRWREL To draw a line from current position to another point with a known 

displacement from the current position. 
MOVREL To move the beam from current position to another point with known 

displacements 
HffREL To plot a point at a screen displacanent of (IX, lY) from the current 

point 
DSHREL — to draw a dash line from the current position to another point with a 

known x- and y-displacanents 

the X- and the y-displacements (in raster units) from the current position 
the dash line code as defined above 



Table 6.10 PDOTIO TC^ 'Subprograms - Screen Graphics 
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Example ; 
following steps: 



Screen graphics is simple to implement. It consists of the 



(1) Initialize. 

(2) Move the beam ("Pen UP" fashion) to the first point. 

(3) Start drawing. FORTRAN statements for calculating the data points 
may be intermixed with the graphics statements in their natural 
order. 

(4) Terminate the graphics session. 

The following program, when 
executed, will produce a drawing as 
shown in Figure 6.14. 

* Example for screen graphics 
DIMENSION IX(13) ,IY(13) 
DATA IX/500,900,700,300,100,800, 
1 800,200,200,600,600,500,500/ 

DATA IY/400, 400, 600, 600, 400,400, 
1 100,100,400,400,200,200,400/ 
CALL INITT(30) 
CALL M0VABS(IX{1) ,iy(l)) 
DO 10 1=2,13 

10 CALL DRWABS(IX(I) ,IY(I)) 
CALL FINITT(0,76"') 
END 




Figure 6.14 Hardcopy of the Output 



Be careful not to let screen coordinates overflow. If either of the 
coordinates is specified with an integer larger than 1023, the true coordinate 
plotted on some graphic terminals will be the residue number of modulo 1024. 
Thus it produces a wrap-around effect. On some graphic terminals, the segment 
beyond the screen area will not be displayed. Furthermore, when the beam 
returns to the display area, it will return at the place where it goes out of 
bound, thus traces an incorrect line. If the line goes out of bound but still 
within the addressable area (i.e. Y>780 and Y<1024) , the picture will be clipped 
for those parts outside the visible display area. These common errors are 
illustrated in Figure 6.15. 



I fidcl reusable 



^ (Goo, looc- ) 



~\- 




^>sihle S'cree/\ ftrea. 




Display produced by: (Picture clipped) 

CALL MOVABS(200,600) 
CALL DRWABS( 600, 1000) 
CALL DRWABS(900,200) 



Display produced by: 

CALL MO\»BS(800,500) 
CALL DRS^f?>BS( 1500, 300) 
CALL DRWMS (100,200) 

(Incorrect display) 



( t^DO, 3oo ) 



Figure 6.15 Screen Coordinate Overflow Errors 
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Subroutine: 



Subroutine ; 
Subroutine: 



CALL WimO(XMm, XRANGE, YMW, YRAWGE) 

CALL DWINDOfXMIN^ XMX, YMIN, YMAX) 

CALL SWINDOamjX^ LEflX, HIBY, LENY) 

CALL TWINDOCtmiX, MAXX, MINY, MAXY) 



To define the windows: 



VWINDO and DWINDO 
SWINDO and TWINDO 



— To define a virtual window 

— To define a screen window 



Parameters: 



XMIN,XMAX 
YMIN,YMAX 



the minimLm arrf the maximum virtual x-coordinates 
the minimim and the maximim virtual y-coordinates 
the horizontal and the vertical extents of the window 



MINX , MAXX , MINY , MAXV , I£MX , I£NY 

Similar definitions, except they are integers aria they define ascreen window. 



Subroutine; 



Functions: 



Parameters: 



Subroutine: 



X,Y 
L 



CALL DRAWA (X, Y) ' 

CALL li.OWMX, Y) 

CALL POINTA(X, Y) 

CALL DASHA (X, Y^ L) 

Virtual graphics in absolute virtual coordinate: 

DRAWA To draw a line from current position to virtual coordinate (X,Y) 

MOVEA — To move the beam from current position to virtual coordinate (X,Y) 

POIOTA To plot a point at the virtual coordinate (X,Y) 

DASHA To draw a dash line from the current position to virtual coordinate 

CX,Y) . The dash line code is given in Table 6.10. 



the absolute virtual coordinates of the destination point 
the dash line code as defined in Table 6.10 



CALL DRAWRfX, Y) 

CALL MOVER (X, Y) 

CALL FOIBTR(X,Y) 

CALL DASHR(X,Y,L) 

Virtual graphics in relative virtual coordinate: 

DRAWR — To draw a line from current position with a virtual displacanent 

MOVER To move the beam from current position with a virtual displacanent 

JEOINTR To plot a point at a virtual displacenent from the current point 

EftSHR To draw a line form current position with a virtual displacanent 



the horizontal and vertical displacanent respectively of the destination point 

from the current point. 

the dash line code as defined in Table 6.10 



Table 6.11 PDJTIO TC.S Subprograms - Virtual Graphics 
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way: 



Example : 



Graphics in the virtual space may be implemented in a similar 



(1) Initialize the graphics. 

(2) specify the screen window (emitted if the entire screen is the 
window) and the virtual window. 

(3) Move the beam to the first point using virtual coordinate. 

(4) Start drawing. Statements for calculating the data paints may be 
intermixed with the graphics statements in their natural order. 
Screen graphics and virtual graphics can also be intermixed. 



The following program will project the drawing of Figure 6.14 
reproduce it within several virtual windows as shown in Figure 6.16. 



and 



10 



Example for virtual graphics 

DIMENSION IX(13) ,IY(13) ,X(13) ,Y(13) 

DATA IX/500, 900, 800, 300, 100, 800, 800, 200, 200, 600, 600, 500, 500/ 

DATA IY/400, 400, 600, 600, 400, 400, 100, 100, 400, 400, 200, 200, 400/ 

CALL INITT(30) 

CALL DWINDO(50.,950.,50.,650.) 

DO 10 1=1,13 

X(I)=FIDAT(IX(I)); Y(I)=FIDAT(IY(I) ) 

CONTINUE 
DO 50 K=l,3 

IF(K.EQ.1)CALL TWINDO(600,800,300,500) 

IF(K.EQ.2)CALL TWINDO(100,200,100,600) 

IF(K.EQ.3)C.ALL TWINDO(100,8Gu,100,200) .V,ftua{ M^Jo 

CALL M0VER(X(1) ,Y(1)) 



DO 20 1=2,13 
20 CALL DRAWA(X(I) ,Y(I)) 

50 CONTINUE 

CALL FINITT (0,767) 

END 





r '"^:'- S.^,^., /-Vw. ,, 




Tzzr 



Figure 6.16 Virtual Graphics Example 
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Subroutine: 



Function: 



Parameters: 



Subroutine: 



Subroutine: 



Function: 



Parameters: 



ICHAR 



NCHAR 
mEE 



Subroutine: 



Subroutine: 



Subroutine: 



Subroutine: 



Subroutine: 



Subroutine : 



Function: 



Parameters: 



CALL ANMODE 

To set the terminal to A^N output rather than having to use 
FORTRAN READ and WRITE Statements, thus remaining in the 
graphics mode. 

None 



The beam position 



CALL ANCHOf ICHAR) 

CALL ANSTR (NCHAR, NADE) 

To produce an ASCII output on the screen, 
is updated after the writing. 

ANCHO To output one single character. 

ANSTR To output a string of characters 



an integer representing a 7-bit ASCII character; not a 

control-character . 

number of characters in the string 

an array containing the ASCII decimal integer equivalent for 

the characters in the string 



CALL NEWLIN 

CALL CARTN 

CALL LINEF 

CALL BAKSP 

CALL HOm 

CALL NEWPAG 

To provide utility functions of the terminal 

NEWLIN To generate a line feed and carriage return 

LINEF To generate a line feed alone, no carriage return 

CARTN To generate a carriage return, no line feed 

HOME To move the A/N cursor to the home position 

BAKSP To generate a backspace 

NEWPAG To erase the screen and return the A/N cursor to 

the home position 

None 



Table 6.12 PLOTlO TCS Subprograms - Utility Routines 
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Subroutine : 


CALL SCmSR(ICEAR,IX,IY) 


Subroutine: 


CALL DCURSR (ICHAR, IX, 11) 


Function: 


To retrieve the screen coordinates of the grciphic cursor. 




Calling the SCURSR or DCURSR will activate the graphic 




cursor, a cross-hair line. Two thumb wheels may be used to 




move the line in order to position a point on the screen. 




The cursor position is transmitted to the computer vrfien a 




keitoard character is struck. The subroutine returns with 




IX, lY indicating the screen coordinates of the cursor. 




SCURSR and DCURSR are identical routines. 


Parameters: 




ICHAR 


a keyboard character; an decimal integer equivalent of its 




ASCII code 


IX, lY 


the screen coordinates of the graphic cursor returned by the 




subroutine 


Subroutine: 


CALL VCURSR (ICHAR, X, Y) 


Function: 


To retrieve the virtual coordinates of the graphic cursor 


Parameters: 




ICHAR 


a keyboard character, represented by its ASCII code in the 




decimal equivalent 


X,Y 


the virtual coordinates of the graphic cursor 



Table 6.13 PLDTlO TCS Subprograms - Cursor Operations 
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Overflow errors in virtual graphics 
will appear as clipped picture at the 
edges of the virtual window. A more 
serious and difficult to detect error is 
canmitted v^en the beam is moved outside 
the virtual window by virtual 
coordinates and then moved back inside 
the window by screen coordinates. The 
re-entry point will be where the beam 
left the virtual window. Because there 
will not be a clipped figure, the error 
is difficult to detect but the re-entry 
line will be incorrectly drawn. This is 
illustrated in Figure 6.17 on the left. 



Figure 6.17 Overflow Errors 
in Virutal Graphics 
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6.12 Interactive Graphics 

Time-sharing mode of computer operation puts a user in direct contact 
with the computer. Now graphics opens a new world with its clarity of 
information. Interactive graphics is then a natural result of canbining the 
best of these two operational modes. 

There are some problems in constructing the computer-user dialogues in 
the graphic mode, however. In a conventional terminal, the dialogues are 
constructed by READ/WRITE statements and the decision (IF) statements following 
the dialogue to determine the next step. All these dialogues are displayed on 
the user ' s terminal . 

In a graphics terminal, such dialogues are still applicable when the 
terminal is in an alphanumerical mode. Once it gets into the graphics mode, the 
drawing will be in progress, and dialogues should not appear on the screen 
because they will spoil the picture. One possible remedy is to move the beam 
outside the visible region; return to the VN mode; tell the computer your 
part of the conversation (by a FORTRAN READ statement) ; then return to the 
graphics mode. Another is to use the ASCII input subroutines, such as TINSTR or 
TINPUT, which will be explained in a later section. The most effective way is 
by using the "menu" graphics for the interaction. 

Let us use the 4010 screen for illustration. Suppose we arbitrarily 
assign the vertical area at the right edge of the screen as the "menu" area. 
Within the menu area, subsections are assigned to pre-designed options and/or 
decisions. By calling the cursor and moving it to within the desired 
subsection, the user's intention is transmitted to the computer without spoiling 
the picture. In addition, the bell can be used as an audible prompt signal to 
alert the user, "Menu graphics" basically makes the use of these ingredients. 
Now we will illustrate by means of an example on the Tektronix 4010: 

Example ; Design an interactive graphics program that will make a logic 
circuit diagram consisting of all NAND gates. In other words, the screen will 
be used as a drawing board, the cursor as a pen. 

First, set aside the area on the 

right edge of the screen as the menu 

{O,70o") I ^oo,?9o) area. The menu area is a rectangle with 

the upper left corner at the screen 
coordinate (900,780) and the lower right 
corner at (1023,0) . Then the menu area 
is equally divided horizontally into 
five subsections. This is shown in 
Figure 6.18. Five options are designed 
into the program: 

(1) Option 1 Draw a solid line. 

(2) Option 2 Draw a NAND symbol. 

(3) Option 3 Draw a small dot, as 
interconnecting point of two lines. 

(4) Option 4 Move the beam to a new 
f''^") (1013,0) position. 

(5) Option 5 Make a hardcopy of the 

screen display and recycle the 

program. 
Figure 6.18 Menu Design 
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To simplify the drawing, we will set up a default option. If the graphic 
cursor is positioned outside the menu area, the option is the Scame as the one 
chosen previously, and the cursor position specifies the end beam position. 
Thus only when the option is to be different fran the last choice for the cursor 
to return to the menu area. 

The design specification of the interactive program can then be 
summarized into the following steps of operations: 

(1) The program is initialized by blanking the screen, and draw the menu. 
The cursor appears on the screen, and the beam is in PEN-UP mode (or, 
OPriON=4) . Move the cursor, using two thumb wheels on the keyboard, 
to a point in the drawing area and mark this position by pressing the 
carriage return (CR) key. The beam is now positioned at the starting 
point of the diagram. 

(2) The bell beeps to alert the user to make a choice of next option. 

a. Cursor will reappear. 

b. Move and position the cursor ,to the menu area, and press CR key 
to select an option. 

c. Move the cursor to the drawing area, and press the CR key to 
execute the option. 

If the option chosen is the same as the last one, the steps "a" 
and "b" may be omitted. Repeat step 2 until the drawing is finished. 

(3) When the drawing is finished, make a hardcopy by pressing the HDCOPY 
switch on the terminal. Choose option 5 (RECYCLE) to make the next 
drawing, or press CTRL-C to exit. 

The program listing is shown below: 

* *********************************** 

* * 

* FILENAME: DRAW. FOR * 

* * 

* *********************************** 
* 

* An interactive menu graphics program to draw an 

* All-NAND logic circuit diagram 
* 

* Implemented for Tektronix 4010 series terminals 
* 

CALL INITTOO) 
10 CALL START 

JOB0=4 
20 CALL OPTION (JOBl, IX, lY) 

IF(JOB1.EQ.O)GOTO 50 

IF ( JOBl. EQ. 5) GOTO 10 

CALL BELL 

CALL SCURSR(13,IX,IY) 
50 IF (JOBl.CT. DC-ALL MOVABS(IX,IY) 

IF (JOBl, EQ.l) CALL DRWABS(IX,IY) 

IF(J0B1.EQ.2)CALL NAND(IX,IY) 

IF ( JOBl. EQ- 3) CALL DOT(IX,IY) 

JOB1=JOBO 

GOTO 20 

END 
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************************ 

* SUBROUTINE START * 
************************ 



************************ 

* SUBROUTINE NAND * 
************************ 



* TO INITIATE THE MENU GRAPHICS 
* 

SUBROUTINE START 

DIMENSION Kl(6) ,K2(7) 

DATA K1/'P','E','N',' ','U'-,'P'/ 

DATA K2/'R','E','C','Y','C',"L','E'/ 

CALL NEWPAG 

CALL MOVABS(900,780) 

CALL DRWABS (1023, 780) 

CALL DRWABS (1023,0) 

CALL DRWABS (900,0) 

CALL DRWABS (900, 780) 

IY1=780 

DO 10 1=1,4 

IY1=IY1-156 

CALL MOVABS(900,IY1) 

CALL DSHABS(1023,IY1,12) 
10 CONTINUE 

CALL MOVABS (925,702) 

CALL DRWABS (1000, 702) 

CALL NAND (950, 546) 

CALL DOT(960,390) 

CALL MOVABS (910, 220) 

CALL A10UT(6,K1) 

CALL MOVABS (910, 65) 

CALL A10UT(7,K2) 

RETURN 

END 
************************ 

* SUBROUTINE OPTION * 
************************ 
* 

* Menu selection of options 

* Returned values: 

* JOBl = Same job as before 

* JOBl =1 Draw line 

* JOBl =2 Draw an NAND symbol 

* JOBl = 3 Draw a dot 

* JOBl = 4 Move beam, no drawing 
* 

* IX, lY information needed for JOB1=0 



* To draw an NAND symbol at (IX,IY) 
* 

SUBROUTINE NAND (IX, lY) 

INTEGER INX(16) ,INY(16) 

DATA INX/0,13,9,3,1,3,3,1,-1, 
1 -3,-3,-1,-3,-9,-13,0/ 

DATA INY/-25,3,9,13,3,l,-l,-3, 
1 -3,-1,1,3,13,9,3,-25/ 

CALL MOVABS (IX, lY) 

DO 10 1=1,16 
10 CALL DRWREL(INX(I) ,INY(I)) 

CALL MOVABS ( IX, lY) 

RETURN 

END 
************************ 

* SUBROUTINE DOT * 
************************ 
* 

* To draw a intersecting dot 
* 

SUBROUTINE DOT(IX,IY) 

INTEGER INX(8) ,INY(8) 

DATA INX/-l,-2,-2,-l,l,2,2,l/ 

DATA INY/2,1,-1,-2,-2,-1,1,2/ 

CALL MOVABS (IX, lY) 

CALL PNTABS(IX,IY) 

DO 10 K=l,3 

IK=K 

CALL MOVABS(IK+IX,IY) 

CALL DRWREL(-IK,IK) 

CALL DRWREL(-IK,-IK) 

CALL DRWREL(IK,-IK) 

CALL DRWREL(IK,IK) 
10 CONTINUE 

DO 20 1=1,8 
20 CALL DRWREL(INX(I) ,INY(I)) 

CALL MOVABS (IX, lY) 

RETURN 

END 



SUBROUTINE OPTION (JOBl , IX, lY) 

CALL BELL 

CALL DC.URSR(13,IX,IY) 

IF(IX.LT.900)JOB1=0 

IFdX.LT. 900) RETURN 

IF(IY.Gr.624)JOBl=l 

IF((IY.LE.614) .AND.(IY.Gr,468))JOBl=2 

IF((IY.I£.468) ,AND, (IY.GT.312))J0B1=3 

IF((IY.LE.312) .AND, (IY.C?r,156))JOBl=4 

IF(IY.LE.156)J0B1=5 

RETURN 

END 
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Figure 6.19 Output from the Interactive Prograti 



Figure 6.19 shows a sample of the result from this interactive program. 

This example shows a very simple case of menu graphics. "In a more 
advanced application, both the software and the hardware supjport will become 
more sophiscated. The thumb-wheel controlled cursor will be replaced by a light 
pen, a joystick or a trackball. The menu will not occupy the same screen as the 
display. Some terminal has several display xy-plane (in the z-axis) , and it 
becomes possible to put the display on one plane, and the menu and the cursor on 
another. The display planes are superimposed on the screen surface. Some 
graphic system has separate digital grphic tablet that has the same coordinate 
ranges as those of the screen, and the tablet may be used as a graphic 
positional input device. The menu in such a case may be designs^d as an overlay 
that has a drawing of the menu on it and is placed on top of the tablet, A 
light pen or a mechanical cursor device may be used to make a selection of 
options . 
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6.13 A Summary of Other TCS Subprograms 



In addition to the basic set of TCS subprograms presented in the last 

section, there are other subprograms tht are useful. They are again divided 
into several categories for summarizing tabulations: (1) rescaling graphic 

output (Table 6.14) , (2) virtual graphics and beam status (Table 6.15) , 

(3) output utilities (Table 6.16), (4) coordinate transformation (Table 6.17), 
and (5) ASCII input/output (Table 6.18). 

These tables now follow. 



Subroutine : 


CALL RSCALE (FACTOR) 




Function: 


To rescale a virtual display by a virtual factor 




Parameters: 






FACTOR 


the rescaling factor relative to the original size of 
display 


the 


Subroutine: 


CALL RROTAT( DEGREE) 




Function: 


To rotate a virtual display by an angle relative to 
original display position. 


its 


Parameters: 






DEGREE 


angle in degrees for the rotation 




Subroutine : 


CALL RESET 




Subroutine: 


CALL RECOVR 




Function: 


RESET same as INITT, but no erasure of screen 






RECOVR To update the terminal hardware to match 


the 




terminal status values 




Parameters: 


None 





Table 6.14 PLOTlO TCS Subporgrams - Rescaling the Graphic Output 
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Subroutine: 


CALL SKEW (MINX, MAXX, MINI, JIAXI) 


Subroutine: 


CALL SEEDWfXMIN, XMAX, YMIN, YMAX) 


Function: 


SEETW To find the current values of the screen window 

SEEEW To find the current values of the virtual window 


Parameters: 


These are returned parameters: 


MINX,MAXX 
XMIN,XMAX 


MINY,MAXY 

the screen coordinates that define a screen window 
YMIN, YMAX 

the virtual coordinates that define a virtual window 


Subroutine : 


CALL SEEREL(RCOS, RSIN, SCALE) 


Function: 


To return the-^yalues of the common variables used by the 
relative virtual routine to scale and rotate vectors. 


Parameters: 




RCOS 
RSIN 
SCALE 


the cosine of the rotating angle 
the sine of the rotating angle 
the multiplier used for scaling 


Subroutine: 


CALL SEETRNfXFAC, YFAC, KEY) 


Function: 


To return the values of the common variables set by the 
window and transformation routines 


Parameters: 




XFACYFAC 
KEY 


the X and y scale factors respectively 

the transformation code: l=linear; 2=log; 3=polar 


Subroutine: 


CALL SEELOCdX, lY) 


Function: 


To locate on the screen the last positin of the graphic beam 


Parameters: 




IX, lY 


the screen coordinates of the beam 



Table 6.15 PLOTIO TCS Subprograms - Virtual Graphics and Beam Status 
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Subprogram: 


variable = LINWDT(IJCEAR) 


Subprogram: 


variable = LINHGT( NLINE) 


Input Prameters: 




NCHAR 


number of characters 


NLINE 


number of lines 


Output Parameters: 


LINWCfT 


width measurement in raster units 


LINHGr 


height measurement in raster units 


Subprogram: 


variable = KIN(RIN) 


Subprogram: 


variable = KCM(RCM) 


Input Parameters 




RIN,RC.M 


input parameters in inches or centimeters respectively 


Output Parameters: 


KIN 


number of raster units equivalent to the input RIN 


KCM 


number of raster units equivalent to the input FCM 


Subroutine : 


CALL SETMRG (MLEFT, MRIGHT) 


Function: 


To set the left and right margins 


Parameters: 




MI£FT,MRIGHT 


screen coordinates for the left and right margins 




respectively 



Table 6,15 PLOTIO TCS Subprograms - Output Utilities 
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Subroutine : 


CALL LINTRN 


Function: 


To reset to linear scaling (from log or polar scaling) 


Parameters: 


None 


Subroutine: 


CALL LOGTRN(KEy) 


Function: 


To define a semi-log or a log-log scale 


Parameters: 




KEY 


code for the log scaling: 

KEY=1 semi- log, x-axis on log scale 
KEY=2 semi-log, y-axis on log scale 
KEY=3 log-log scale 


Subroutine : 


CALL POLTRN(ANGMIN^ ANGMAX, RSPRS) 


Function: 


To set up polar virtual window 


Parameters: 




ANGMIN,ANGMAX 
RSUPRS 


the minimum and the maximum angles relative to the horizontal 

for the display 

the radius suppression factor 


Subroutine: 


CALL DRAWSA(X, Y) 


Subroutine: 


CALL DRAWSR(RX^ RY) 


Subroutine: 


CALL DASESA(X, Y) 


Subroutine: 


CALL DASESR(RX, RY, L) 


Function: 


TO drawline segment v^ile the polar coordinate transformation 
is in effect: 




DRAWSA To draw a segment of line, given a virtual 

coordinates of the end point 
DRAWSR To draw a line segment given the virtual relative 

coordinates to the current beam posit:.on. 

DASHSA Same as DRAWSA except in dash line 

DASHSR Same as DRAWSR except in dash line 


Parameters: 




X,Y 

RX,RY 

L 


virtual coordinates of the end point of the line 

virtual coordinates relative to the present beam position 

the dash line code {See Table 6.10) 



Table 6.17 PLOTIO TCS Subprograms - Coordinate Transfonnations 
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Output of ASCII Characters - Beam not updated for 'CTRL-Character Output 


Subroutine: 


CALL ANCHO(ADE) 


Subroutine: 


CALL ANSTR( NCHAR, ADES) 


Function: 


The ASCII characters are given in ADE codes. 


Parameters: 


- 


ADE 

ADES 

NCHAR 


an integer constant, representing the AIX code of the character. The character 

must not be a control-character. 

an integer array, with each an ADE code for a character. The array contains no 

control-cahr acter s . 

number of characters 


Subroutine: 


CALL Al OUT (NCHAR, ASCIS) 


Subroutine: 


CALL AOUTST( NCHAR, ASC5S) 


Function: 


ASCII characters are given in FORTRAN "A" format. Not for CTRL-char acter s. 


Parameters: 




NCHAR 

ASCIS 
ASC5S 


number of characters. For Al format, NCHAR = ntmber of characters. For A5 

format, NCHAR = 5* (number of elements in the array). 

an ASCII array, with each element in Al format 

an ASCII array, with each element in A5 format, left-justified 


Subroutine 


CALL TOVTPT(ADE) 


Subroutine 


CALL TOUTST( NCHAR, ADES) 


Function: 


Characters are given in ADE codes. For CTRL-characters only, because the beam 
does not move after the output. 


Parameters 




NCHAR 

ADE 

ADES 


number of characters 

an integer constant, representing the control-character in ADE code 

an integer array, each element a control-character in AEE code 



Subroutine : 
Subroutine: 



Parameters: 



To Store Input ASCII Characters from Keyboard 

CALL AlIN (NCHAR, ASCIS) 

CALL AINST (NCHAR, ASCSS) 

Tto accept ASCII inputs from the keyboard and store them as variable or array 
values in FORTRAN "A" format. 



NCHAR, ASCIS, ASC5S defined the same way as in AlOOT and AOOTST subroutines above. 



Subroutine: 



Parameters: 



CALL TINPUT(ADE) 

CALL TINSTR( NCHAR, ADES) 

To accept ASCII inputs from the keyboard, and store them as variable or array 
values as integer ADE codes. 



NCHAR, ADE, ADES defined in the same way as in TOOTPT and TOOTST above. 



Table 6.18 PLOTIO TCS Subprograms - Input/Output of ASCII Characters 
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THREE DIMENSIONAL DISPLAYS 



Three-dimensional graphics is one of the most challenging topics in the 
computer graphics research and applications. It involves a study of surfaces 
and solids, their geometrical formulations, their interrelationship expresssion 
by means of some language description, perspective, projection and hidden 
surface identifications. 

The discussion here will only concern with a very simple and small aspect 
of the field. We will simply be concerned with how to display a two-dimensional 
function in the general form of z=f(x,y) for a range of x's and a range of y's. 
For example, a relief map would be a display model showing the height as a 
function of longitudes and latitudes. 



6.14 Three Dimenional Displays 

In the materials covered in this chapter, the display was mainly in two 
dimensions. In other words, the mathematical formulation of the function is 
y=f(x) , x=f(y) , or f (x,y)=constant. 

For the type of function z=f (x,y) , a 3-dimensional display is required, 
and the z-axis is need to display "z". 

There are several ways to display such functions. One is displaying it 
as a contour or relief map, with x,y to be spatial coordinates. Figure 6.20 
shows two outputs available on DEC-10. 



X' 





(a) 2-Dimensional Fourier Spectrum (b) 1970 U.S. Census 

Sample Output from VERPLT (Ref .18) Sample Output from ASPEX (Ref.l6) 



Figure 6.20 3-D Displays by Contour Plotting 
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The other way is to interprete z's as light intensities and plot the 
z-f unction as an image. Figure 6.21 shows some samples of image output on 
DEC-10. The gray scales (the gradation of shades) in the output are 
accomplished either by an over-print techniques (on a conventional printer) or 
by a dot-matrix technique (on a dot matrix printer, such as the VERSATEC 
printer) . 



(a) Over-print Technique 



(b) Dot-matrix Technique 
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Figure 6.21 3-D Displays by Image Plots 
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EXERCISES 



1. Reproduce your signature on a CalComp plotter. Write a subprogram so that 
you may sign your plots. Tlhere should be control on v^^ere the signature 
should start (specify starting point coordinates) , how high it should be 
and how wide it should be. 

2. Repeat problem 1 on the Tektronix 4010. 

3. Write and implement a subroutine CIRC(X,Y,R) for (a) printer graphics, (b) 
CalComp graphics, and (c) Tektronix 4010. The parameter X,y are virtual 
coordinates for the center, and R is the radius, 

4. Set up a data file for about 50 data points. Use the data file to produce 
plots on the printer, on the CalComp plotter, and on the Tektronix 4010. 
The data file may be generated by taking a function and calculating its 
values for a range of the independent variable. 

5. Design an interactive graphic program so that you may use the cursor of 
Tektrnoix to draw a transistor circuit diagram. Design a menu so that you 
have selections of symbols of transistors, diodes, resistors, inductors, 
and capacitors. 

6. Reproduce the University logo on the printer, on the plotter and on the 
Tektronix 4010. Write it up as a subroutine with parameters of 
size-control. 

7. Practice on various type of axis constructions: linear axis and 

logarithmic axis, using some arbirtrary data set. 

8. Produce a graphic creative design on a graphic device. 



Note: CalComp plotter is a slow device, and a typical plotting job takes 
minutes. Therefore, most installations have restrictive regulations for 
student usage and require special arrangement or request from the 
instructor. Consult your local rules and regulations for instructional 
usages. 
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CHAPTER 7 
SELECTED SERVICE PROGRAMS AND PROCEDURES 



Several service programs and procedures will be 
presented in this chapter. They are: PIP (Peripheral 
I^nterchange Program) , SORT, RUNOFF, OPRSTK (Oger^ation 
Stacker) , and the Virtual Memory. These programs and 
procedures perform a variety of service functions. 



PIP 



7,1 Introduction 

The PIP (Peripheral Interchange Program) program transfers data and 

program files from one standard input/ouput device to another. Unless 

explicitly specified to be deleted, a file at the source remains unchanged and 

undisturbed. During these operations, simple file editing and magnetic tape 

control may be performed. It is undoubtedly one of the most useful service 
programs. Since it deals with devices and files, several related terms should 
be reviewed first: 

(1) Physical device name Each input or output peripheral device 
associated with the System has a standard physical device name so that it can be 
referred to consistently. The format of a physical device name is: 

DEVnnn : 

where: DEV = three-character abbreviation assigned to a class of devices, 
for example, LPT for all line printers in the system. 

nnn = zero to three-digit number indicating the numerical designation 
for a particular unit in a class of devices, such as "DTAOIO:" 
for EECtape drive Number 010. 

: = a colon, an integral and terminating part of the device name. 

If there is only one device in a particular class, the part "nnn" may be 
omitted. For example, "PLT:" is used to represent the system plotter, "PRG:" 
the Program Library, and "SYS:" the System Library. It may also be omitted in a 
multi-unit device name if only one such unit is assigned and available for 
general usage, such as "DSK:". A list of physical names of selected system 
devices is shown in Table 7.1. 
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Device 


Physical Names 


Array processor unit 


APU: 


Card Punch 


CDP: 


Card Reader 


CDR: 


DECtape Drive 


DTA: 

DTAOIO:, DTAOll:, etc. 


Disk 


DSK: 


Line Printer 


LPT: 

LPT03:, LPT06:, LPTIO:, etc. 


Magtape Drives 


MT7: (7-track drive) 
MT8: (9-track drive, 800/1600 BPI) 
MT9: {9-track drive, 1600/6250 BPI) 
MTAOIO:, MTAOll:, etc. 


Operator's Terminal 


CPR: or TTYO: 


Plotter 


PLTs, PLTOIO: 


System Library 


SYSs 


Program Library 


PRG: 


Engineering Library 


ENGs 


Terminals 


TTYj 

TTYO:, TTYie:, TTY63:, etc. 



Table 7.1 System Devices and rttieir Physical Names 



(2) Logical device name The user may also define tlie device with 

a name of his choice by the monitor conmand ASSIGN or MOUNT (i3ee Chapter 8) . 
Such a user-chosen name is called the logical device name. Qice a logical name 
is assigned, a device may be referred to by either its physical or logical name. 
In case there is a conflict between a logical name and a physical name, the 
conflict may be resolved by the System v*iich gives the logical niame precedence. 
The format of a logical device name is: 

LOGDEV: 

where IDGDEV is an one to six-character alphanumeric string, and the colon is an 
integral and terminating part of the name. 



(3) PIP switch 
interpreted 



In using the PIP program, all tasks are 

in terms of file transfer with a single command format. Variations 
of the tasks may be designated in the command structure by adding switches. 
There are tvo acceptable forms of PIP switches: a code letter preceded by a 
slash or a code letter enclosed in parentheses — for example, /X or (X) . 
Multiple switches may also be given in either form — for example, /B/X or 
(BX) . A PIP switch may be placed anywhere in a PIP command. 
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(4) File specification For the purpose of identifying a file, each 
file is given a name. Once the names are established, the system will maintain 
a directory so that users need not be concerned with the exact location on the 
disk for their files. For the DEC System-10, the format of a complete file 



specification is: 



DEV: NAME. EXT [m,n] <xyz> 



where: DEV: = name of device on vAiich the file is stored. If this part is 
omitted in the complete specification, DSK: (the disk assigned 
to users) is assumed. 

NAME = filename consisting of one to six alphanumeric characters with 
no embedded blanks. 

.EXT = file extension consisting of zero (0) to three alphanumeric 
characters with no embedded blanks. If it contains zero 
character, it is called a null extension. The period is an 
integral part of the extension. 

[m,n] = the PPN of the person vitio created and owns the file. the 
default PPN is the current job's PPN. Note the use of square 
brackets. 

<xyz> = a three-digit protection code. Note the use of angular 
brackets. 

The file extension is a part of file identification, used to indicate the 
type or language of the file. Although any zero to three-character combination 
can be used as a file extension for any file, the following are some of the most 
frequently used file extensions, and their meanings are recognized by the 
System. 

Examples : 

NEWTON. PIL A PIL program file named NEWION. 

NEWTON. FOR A FORTRAN program file named NEWTCN. 

NEWTON, REL An object program ccsnpiled from NEWTON. FOR 

NEWTON. BAS A BASIC program file named NEWTON. 

FOR01.DAT A data file named FOROl. 

Symbols "*" and "?" are used as "wild cards" to represent a class of file 
names or extensions, as illustrated by the following examples: 

Examples ; 

NEWTON.* All files named NEWTON of any extension. 

*.FOR All FORTRAN files. 

*.* All files. 

F????.DAT All data files v^ose names are 5 characters 

or less and begin with F. 

D12??.D?? All files vAiose names begin with "D12" and 
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contain 5 or less characters, and vi^ose 
extensions begin with the letter D and con- 
tain 3 or less characters. 

D12??.* All files v*iose names begin with "Dl2" and 

contain 5 characters or less. 

The protection code is a 3-digit octal- number xyz, each digit ranging 
from to 7. Each digit defines a protection level of the file against a 
certain class of users: 

X = protection level against the file owner himself. 

y = protection level against users sharing the same project number. 

z = protection level against the general public. 

The level of protection ranges frcm level to 7, and level-7 is the 
highest. The exact definition of each protection level is given bslow: 



Code Digit 


Access Protection* 


7 


No access privileges 


6 


Execute only 


5 


Level 6 + Read privilege 


4 


Level 5 + append privilege 


3 


Level 4 + update privilege 


2 


Level 3 + write privilege 


1 


Level 2 + rename privilege 





Level 1 + change protection privilege 



Access protection can be changed by executing RENAME or PROTECT monitor 
command (see Chapter 6) or the PIP program (see Chapter 7) . Since there are 8 
levels of protection in each of three classes of users, there are 512 different 
shades of protection- level combinations possible. Normally, one need only be 
concerned with a few commonly used codes: 

Protection Codes Applications 

077,177 Strictly private and non-sharable, such as 

grade files maintained by an instructor . 

057; 177 Sharable within a project, for example, a 

program to be shared by all students in a 
course. 

055,155 Sharable with the computer community, but 

the file may not be modified b^;' anyone 
except the file owner. 

The System assigns a default protection level of 057, set automatically 
by the computer if the person does not specify any protection code v^ien he 
creates the file. In some coursework, instructors may arrange to have the 
default protection level automatically set at 077. In such a case, the 



*Subject to minor local variations. For example, at the University of 
Pittsburgh, access protection designated by the x-digit has been modified 
slightly. 
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protection code of a student's file is 077 to his Classmates, but is 057 to his 
instructor. 

(5) Directory and non-directory devices 

While the PIP program deals mainly with transfer of files, many transfers 
are really input/output operations. For example, transferring a file from the 
disk to a line printer is actually an output operation of printing out a disk 
file. Therefore, if we ignore these input/output operations, we need only 
consider three major devices for the "true" transfer. They are the disk, the 
DECtapes, and the magnetic tapes. 

For the purpose of file references, the disk and the DECtapes are called 
directory devices and the magnetic tapes are non-directory devices. In a 
directory device, the files are identified by their file specifications, and 
there is no need to know the actual jAiysical locations of these files on the 
devices. However, on a non-directory device, a file can only be identified and 
located by its physical location or sequence, for example, file No. 3. 

7.2 The Standard PIP Command Structure 

The PIP program may be called at the monitor level by the command: 



.R PIP 



After PIP is loaded, a prompt character "*" is printed at the terminal, and PIP 
is ready to accept PIP commands. 

The PIP command has a standard and simple structure: 



Destination = Source (s) 



\«rf:iere: Destination = device and/or file which is to receive the transferred 
data. This portion contains only one file specification. 
(Note: One file specification may imply multiple files if 
a wild card is used.) 

"=" = an equal sign separating the source and the destination. 
It may be substituted by a left arrow available on some 
terminals. 

Source (s) = one or more file specifications of the origin(s) of 
transfer. 

Both the destination and the source specification are of the standard 
form DEI/; NAf1E.EXT[m,n]<ooyz> . Rules of default conditions and wild card 

construction apply as given in Section 6.1. 

Exit frcm the PIP program to the monitor may be accomplished by pressing 
either the CTRL-C or CTRL-Z key. 

Various uses of the PIP commands are shown in the following examples: 
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Example 

R FTP 
*TTy:=CURVE.FOH 

(Program listing 
follows here.) 



Function 
Call for PIP 



Transfer a disk file to TTY. 
list the file on TTY. 



In other words. 



Transfer completed; PIP is ready for another 
ccmmand. 

Exit from PIP. 



The vAiole sequnece is equivalent to issuing a monitor command TYPE CURVE, FOR. 
In fact, the monitor TYPE command actually activates and runs the PIP program. 

Other examples and explanations are given below: 



Example ; 
Function ; 

Example ; 
Function: 



Example : 
Function: 



Example : 



Function: 



Example : 
Function: 



Example ; 



Function : 



*LPT: =. CURVE. FOR 

List the file CURVE. FOR on the line printer. 

*LPT: = *.FOR 

List on the line printer (of the station vrtiere the terminal 

of the user belongs) all FORTRAN-10 files storecl on disk. 

* DOUBLE. FOR = CURW.FOR 

Copy the disk file CURVE. FOR and name tlrie copy as 

DOUBIfi.FOR. 

.DRIVE DTA 

JJOmiT DTA:Tl/m/VID:A1004 

,R PIP 

*T1: DOUBLE, FOR = CURVE. FOR[115103,Z20571] 

*fZ 

.DISMOUNT Tl 

, UNDRIVE 

Copy a file CURVE. FOR that belongs to another PFN onto a 

DECtape registered under the number A1004. the name of 

copied file on the lECtape is DOUBLE. FOR. Message 

printouts are not shown. 

*LPT: = Mt9:* 

Print everything on the magnetic tape currently mounted on 

the tape drive. 

,R PIP 

*DSK: SAI4PLT.F0R = TTY: 

A=1.2346 
WRITE(6,10)''A 
10 FORMAT (FIO.S) 

Em This CTRL-Z is an end-of-file mark, 

^'^ therefore terminates TTY input. The 

*^ second CTRL-Z is to exit from PIP. 

Use PIP to enter a source program. A possible but not a 
recommended way, because no editing is possible. 
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7.3 Transfer of Multiple Files, the X-Switch 

When there is more than one file in the source specification, transfer 
may be done in two ways: to transfer collectively as one combined file, or to 
transfer files singly and retain individual identifications. In the former 
case, it is a natural application for merging several files together. In the 
latter case, an X-switch in the command will make the transfer of multiple files 
singly and each transferred file will be given a unique name, as specified in 
the command string. 

File transfer between one directory device to another is a simple matter 
since both the destination and the sources are identified by file 
specifications. File transfer between non-directory and directory devices are 
more complicated since the filenames must sometimes be arbitrarily generated. 



The examples below demonstrate many 
transfer, with and without the X-switch: 



salient points of multiple-file 



Example ; *DTA1: /X = DSK: *.* ot DTA1:/X= 

Function ; These two commands perform the same way. They transfer all 
disk files to DTAOIO and retain individual filenames and 
extensions. When the right side of the equal sign is 
blanked, the default conditions simply mean "everything 
from my disk". 

Example : *DTA1: mSS.MT9 = MT9:* 

Function; Transfer all files combined on the magtape ^W9 to a 
DECtape. Name the result MESS.MT9. Since no X-switch is 
used, all files are merged into a single file after the 
transfer . 

Example ; *DTA1: mSSJirg/X = MT9:* 

Function: Transfer all files from MT9 to ETAOIO, retaining the 
individual filename and extension of each file. However, 
since only one filename and one extension are specified on 
the destination side, individual filenames and extensions 
must be generated by PIP. The rule of filename generation 
is as follows; The format of the generated filename is 
XYZnnn v^iere: 

XZZ = the first three characters in the specified 
destination filename. If none is specified, the 
three-character chosen is XXX. 

nnn = a three-digit number, from 001 to 999. 
The extension is retained and shared by all generated file 
specifications. Thus, for this example, if fOT9 contains 15 
files, the transferred files on EG?A010 will have names of 
MES001.MT9, ..., MES015.MT9. 



7.4 Transfer of Files with Editing 

Certain editing functions can be incorporated into the transfer of files. 
A list of selected switches for this purpose is shown in Table 7.2 on the next 
page. The carriage control characters created by the /P switch will instruct a 
line printer to perform certain actions as listed in Table 7.3: 
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Swi tch 



Function 



To generate or delete sequence numbers. 



/S 



To insert sequence numbers. At the start of each line of a file, a 
sequence number Is computed and inserted. These sequence numbers 
assigned by PIP are five-digit numbers starting from 00010 and ranging 
through 99990 in increments of 10. 



Example: Source file: 

A=1.2345 
WRITE(6,10) 
10 F0RMAT(F10.5) 
END 



Destination file after /S switch: 



00010 
00020 
00030 
00040 



A=1.2345 
WRITE(6,10) 
10 F0RMAT(F10.5) 
END 



Same as /S, except that the increment is 1. 



To delete sequence numbers from the file. 



To replace characters in columns 73-80 in each line by spaces, and to 
ignore the sequence number on each line. The E-switch may be used for 
any input device but is most commonly used in a card reader. 

To delete trailing spaces on each line to save storage space: 

To delete trailing spaces in each input line and to convert multiple 
spaces into tabs. Its main purpose is to conserve storage space by 
making the file more compact. 

To delete trailing spaces on each line. No conversion of multiple 
spaces to tabs . 



To perform "line-blocking" of input data files: 

/A To "line-block" the file so that each buffer contains an integral 
number of lines, and no lines are split between physical output 
buffers. Such splitting may cause unpredictable read-errors. This is 
a necessary step If the Input data files, prepared by an editor such 
as the UPDATE, are for a FORTRAN F40 program. For FORTRAN-10 (F10), 
line-blocking of input data files Is no longer necessary. 

To prepare a FORTRAN output file for printer output: 

/P To convert a FORTRAN output file containing printer control characters 
into one that will activate the carriage control of the line printer. 
Without such conversion, the printer will simply print out the control 
characters as characters without taking any action. The FORTRAN 
carriage control character Interpretation Is shown on Table 7.3. 




Table 7.2 PIP Switches for Transfer of Files with Editing 
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Carriage Control 
Character 


Line Printer Action 


blank 


Normal single space printing. FORM FEED (advance 
to a new page) every 60 lines. 


* 


Normal single space printing. No FORM FEED, even 
when the bottom of a page is reached. This is used 
when continuous printing is desired, such as In a 
chart, a graph, or a long tabulation. 


+ 


To overprint the previous line, such as to 
underscore part of the text. 


, (comma) 


To skip to the next 1/30 of page. 


. (period) 


To skip to the next 1/20 of page. 


/ 


To skip to the next 1/6 of page. 


= 


To skip two lines (triple space) 





To skip one line (double space) 


1 


To skip to the top of the next page (FORM FEED) 


2 


To skip to the next 1/2 page 


3 


To skip to the next 1/3 page 



Table 7.3 FORTRAN Carriage Control Characters 



For example, a file containing the following: 

(Colunn 1) 
1 
2 

REPORT TITLE 



will print out the "REPORT TITLE" at the middle of the page, and the subsequent 
materials will begin at the next page. 
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7,5 File Directocy Management 

PIP switches in this group will handle directory management, such as 
reporting on the directory content, changing the file specifications, file 
deletions, etc. Al thought the PIP coitmand still conforms with the general 
format of source and destination, no actual transfer takes place. Switches in 
this group are listed in Table 7.4 on the next page. 



7.6 Multiple PIP Switches 

More than one switch may be given in a single PIP coimiand 
cumulative effect. This is illustrated by the examples below: 



to get a 



the three successive PIP 



Example ; *DTA1: (ZDX) = *.LST, *.LPT 
Function ; This canmand is the same as 

commands ; 

WTA1:/Z = 

*DTA1:/X = DSK:*. * 

*DTA1:/D = *.LST, *.LPT 

The net result is; Clear the DECtape now mounted on DTAOIO 

and copy everything from the disk onto DTAOIO except *.LST 

and *.IiPT. 



Example ; *DSK: NEWTON. REL/B/P = DTAl : NEWTON . REL 

Function ; This command will copy a FORTRAN binary file from a DECtape 
onto a disk in order to insert a control word into each 
physical buffer. If buffer sizes are the same, the 
P-switch is not needed. Also, FORTRAN-IO binary files need 
no P-switch. 
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Switch 



Function 



To list the directory: 



To list the directory of the source devices and files. The directory 
will include filenames, extensions, protection codes, number of 
blocl^s, creation dates and total blocks. 



E xample s.; 



DSK:/L 
= DTA010:/L 
= *.FOR/L 
= ^.VIL, *.FOR/L 



¥:TTY 

*TTY 
*TTY 
*LPT 
*LIST. DIR=DSK: *. */L 



Explanations: 

List the disk file directory on TTY. 

List DTA010 directory on TTY. 

List all disk FORTRAN files on TTY. 

List directory on line printer. 

Store directory as a file named. 



Fast listing of directory giving filenames and extensions only, 
To change the file specifications: 



/R 



To rename the source flle(s) in the manner Indicated in the 
destination file specification. Only one or one class of files (wild 
card construction) may be renamed In one PIP command. 



Examples ; 

*NEW.F0H<155> = OLD.BAK 



WEW.F0R<1SS>/R = OLD.BAK 
*NEW. */R = OLD. "* 
**.*<177>/R = 



Explanations: 

Straight copying of a file; OLD.BAK 

retained after copying. 

Rename; OLD.BAK no longer exists 

after renaming. 

Change all filenames of OLD to NEW, 

and retain all extensions. 

Change the protection codes of disk 

f 1 les to 177. 



To de I ete f i I es : 



To delete the specified source file from the destination device. Only 
one source device is permitted, and It Is initially assumed to be the 
same as the destination device. 



Exam ples : 

*DSK:/D = OLD, FOR, 



,REL 



*T1:/D = Tl: FILE1.DAT 



Explanations: 

Delete from the disk all REL files 

and the f i le OLD. FOR. 

Delete a file named FILE1.DAT from a 

DECtape which has been mounted and 

given a logical name of Tl . 



To zero out (erase) the directory of the output device. If the output 
device is the disk, an attempt Is made to delete all the files whose 
names are found in the directory specified. If it is not possible to 
delete some of the files, the request will be terminated after as many 
files as possible have been deleted. 



Examp le: 

tOTAOUt/Z 



Explanation : 

Clear the DECtape mounted on the 

drive DTA011 . 



Table 7.4 PIP Switches for Directory Management 
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7.7 A Summarv of PIP Switches 



A summary of the selected PIP switches is given in Table 7.!j below: 



Switch 


Function 


A 


Line blocking. 




B 


Binary processing. 




C 


Suppress trailing blanks, convert multiple spaces to tabs. 




D 


Delete file. 




E 


Treat (card) columns 73-80 as spaces. 




F 


Fast listing of directory. 




N 


Delete sequence numbers. 







Same as /S switch, except Increment = 1. 




P 


FORTRAN output assumed. Convert format control characters 
for LPT listing. Use /B/P for copying binary files. 




R 


Rename file. 




S 


Sequence the file with sequence numbers. Increment = 10. 




T 


Suppress trailing blanks. 




W 


Convert tabs to multiple spaces. 




X 


Copy specified files. 




z 


Zero out the directory. 





Table 7.5 A Summary of Selected PIP Switches 
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7.8 The SORT Program 

SORT is a "stand-alone" program frcxn the COBOL processor. It is used to 
sort a file according to the contents in a specified field of each record. The 
sorting may be done either numerically or alphabetically, in ascending or 
descending order. Since the program was developed as a part of the COBOL 
processor, many of its features are COBOL-related. Here, only a simplified 
version will be presented so that the application is confined to ASCII-coded and 
non-COBOL files. We shall see that even with such a restriction, there is a 
wide range of applications. The SORT program may be called at the monitor level 
by a command: 



R SORT 



when the terminal types out a prompt symbol "*", sorting commands may be issued. 
There is only one canunand format: 



OOTPUT FILE SPEC = INPUT FILE SPEC/switch ^/switch K 



where OUTPUT FILE SPEC = file specification of the sorted result. 

INPUT FILE SPEC = file specification of the original file. 

Switch R, Switch K = two of many SORT switches available in the CCBOL 
processor. They are defined in the following way: 

(1) The R-Switch 

The RECORD or R-Switch defines the length of each record and has a format 



of: 



/RECORD:n or /R:n 



where n=record length in number of columns. If "n" specified is smaller than 
the actual record length, the columns beyond the nth column will be deleted in 
the result. This switch must be given, and its omission is an error. 

(2) The K-Switch 

The KEY or K-switch defines the field in each record about vAiich the file 
is to be sorted. It has a general format of: 

/KEy:begin:size:order or /K:b:s:o 

vrtiere: begin = an integer, representing the beginning column of the sorted 
field. 

size = an integer, representing the size (number of colunns) for the 
sorted field. 
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order = a character, "A" (for ascendir>g order) or "D" (for descending 
order) . If the order is ascending, the "order" parairaeter may be 
omitted in the key. 

Any number of /KEY switches may be given. If there is more than one 
K-switch, then the first one is the primary sort key, followed by the secondary 
sort key, the tertiary sort key, etc. For example, suppose we sort a student 
roster in Engineering first by departments, then in each department by last 
names, and then by initials if last names are the same. Here wsi use three 
K-switches: the primary sort for the department, the secondary sort for the 
last names, and the tertiary sort for the initials. In the SORT command string, 
the leftmost K-switch is the primary key, and the key-hierarchy desjcends as you 
move toward the right. 

Example ; A grade file GRADE.DAT is stored on disk, and its content is: 

12 3 
123456789012345678901234567890 (Column Numbers) 



ABBOT, W. E. 


67 


DOE, J. Q. 


75 


QUINCY, T. C. 


83 


RIM, E. D. 


47 


TIMMONS, E. E. 


66 


YANG, R. Y. 


88 


J? SORT 





Comments 

*G1.DAT = GRADE .DAT/D: 22 : 2/R: 23 Sort GRADE.DAT according to 

descending order of grades. 
(Computer run message) 

Example ; Suppose RDSTER.DAT is a student roster file. Each record is 
of 80-column wide. Information contents are stored in the followincj columns: 

Columns 1- 3 Initials 

Columns 6-20 Last names 

Colimns 21-25 Department names abbreviated 

Columns 26-30 School names abbreviated 

Tcie following SORT command will sort the file: first according to the 
school, then within the same school according to the departments, then within 
the same department according to the alphabetic order of last names,, and if the 
last names are the same, according to the alphabetic order of their initials: 

icROSTER. DAT = ROSTER. DAT/K: 26: S/K: 21 : 5/K: 6 : 1 5/K: 1 : 3/R: 80 
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INTRODUCTION 

RUNOFF is a utility program v*iich facilitates the word-processing 
applications on the EEC-IO, such as for preparing manuals, reports, theses and 
dissertations, etc. The general procedure is as follows: 

(1) A file is prepared by the user that contains text materials. 

(2) Interspersed in the text file are appropriate RUNOFF commands that 
specify the case and formatting instructions. The file containing 
both text and RUNOFF commands is called a RUNOFF source file . For 
experienced RUNOFF users who are also their own typists, these first 
two steps are often merged into one. 

(3) When such a source file is run, RUNOFF will take the file and 
reproduce it on the line printer, on a terminal, or into another 
file. In so doing, it also performs the formatting and case 
shifting as directed. If specified, it will also perform margin 
changes, line justification, page numbering, titling of each page, 
compiling index terms, etc. 

The following example shows some typical results of RUNOFF, 

CllAfTER 1 
IMrRODUCTlON 

;■ 1.1 Batch Proces sing versus Timo-Sha r ing 

Once upon a time, when a computer user wanted to run a program, he went 
through the following steps: 

(1) The user submitted his program and data deck to the Computer Center. 

(2) The decks o£ cards sutanittod by ditterent users vece stacked 
together to form a batch, each deck with its proper identification. 
All jobs in one batch were then executed in one "run", hence the 
name "ba tch proc essing" . The information on the punched cards in a 
batch were first copied into a reel of majnotic tape by means of a 
small and relatively inexpensive computer. The reason for this was 
that the card- input to the main computer was a slow and therefore 
expensive process. 

(J) The magnetic tape so prepared became the input median to the main 
computer. At the scheduled time, the jobs in the batch were run and 

the outputs (printouts, cards, tapes, etc.) were obtained. ; 

Sometimes the outputs wore recorded on another reel of magnetic | 

tape; then output printing may be done off-line so as not to slow I 

down the computer operation. I 

The chief benefit of RUNOFF is that the source file may be easily edited 
and modified by a text editor. Materials may be deleted or added. Formatting 
rules may be changed regarding margins and spacing. These changes normally 
result in a catastrophe dreaded by every typist and student because the material 
must be re- typed and re-paged. Now, the RUNOFF program is simply rerun with the 
revised source file, and a new copy is obtained properly revised and paginated. 
Thus, documentations, theses and dissertations may be updated and revised as 
necessary without requiring extensive re-typing. 
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7.9 RtKIOFF Operating Procedure 

RUNOFF can be called by a monitor command: 



,R RUNOFF 



when the terminal types out a prompting "*" symbol, RUNOFF is ready to accept a 
comnand. The general format of a RUNOFF command is: 



Output specification = Input specification/switches 



where the output specification may be a standard DEC-10 name for one of the 
following : 

Line printer such as LPTlO: 

Terminal such as TTY: 

Another file such as THESIS, DOC 



Example ; The source file that contains a textual manuscript and RUNOFF 
commands has been prepared and stored as MAN.RNO in the user's disk. "RNO" is 
the default extension of a RUNOFF source file. 



Commands 
.r runoff 
*LPT10:=MAN 

*TrY:=MAN/PAUSE 
*MAN.DOC=MAN.RNO 



Comments 

Call for RUNOFF, 

To produce a copy of finished manuscript 
on the line printer No, 10 

To produce a copy of manuscript on the 
user's terminal. Pause at the beginning 
of each page to allow alignment of 
paper. 

To produce a file MAN. DOC that is a copy 
of the finished manuscript. 

To produce a file MAN. MEM fran a RUNOFF 
source file MAN.RNO. Here file names 
are the same and extensions are default 
extensions. 
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Several operating hints may be useful: 

(1) If the manuscript is reproduced on a terminal, make sure the 
terminal settings are adequate. The terminal is normally set at a 
set of default values, such as tabs at 9,17,25..., right margin at 
72, characters at upper cases, etc. If the manuscript requires 
non-standard settings, appropriate ccammands must be given to pre-set 
the terminal. The following are some typical and useful TTY 
commands applied before a RUNOFF session: 

.TTY WIDTH 132 Set right margin at 132. Right margin can 
be set at anyvAiere between 17 and 200. 

.TTY PAGE This will enable the control functions of 

CTRL-S and CTRL-Q keys. CTRL-S will suspend 
the output (but not kill it) , and CTRL-Q will 
resume it. Suspension of output gives you a 
chance to inspect the output. This is very 
important if you are using a CRT terminal. 

.TTY DC Normally your terminal is set for uj^r case, 

even if it has lower case capability. To 
prepare a source file in both upper and lower 
cases, the lower case must be activated. 



(2) If the manuscript contains upper and lower cases, find out \i^ich 
printer in the System has a lower case capability. Otherwise, all 
lower cases will be forced into upper cases, a situation that may be 
objectionable on occasion. 



A RUNOFF PRIMER 



7.10 How RUNOFF Works 

The complete RUNOFF utility on the DEC-10 contains between 80-90 commands 
altogether. However, only a handful is in frequent use and is therefore 
essential. Hence, it is possible and advisable for a beginning user in RUNOFF 
to master this anall set so as to quickly utilize the RUNOFF capability. 

When the RUNOFF is called, certain modes and formatting instructions are 
already set up, and these are the standard default RUNOFF status: 

(1) Print page numbers on every page except the first. 

(2) Single space with left margin set at 0, right margin at 60. This 
means that all text reproduced by RUNOFF will be left-justified at 
column-1 and right- justified at column-60. 

(3) Paper size is assumed to be 60-character wide and 58-lines long. 

(4) Tab stops are set at EEC-IO default values, namely, at 9, 17, 25, 
33, 41, 49, 57, 65, etc. 
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As the RUNOFF proceeds to reproduce the source file, it constructs a line 
by copying words and leaving one blank between words, two blanks after a period, 
until adding another word would overshoot the right margin. This process is 
called filling . After a line is filled, blanks are added as necessary between 
words on that line until the last character on that line is aligned with the 
right margin. This process is called justifying . 

Therefore, if there is no RUNOFF command at all in a textual file, RUNOFF 
will reproduce it into a document, using only default formats and modes. The 
document produced will have an appearance as shown below: 

60 Spaces Wide 



XX XXXX XXX 

XX. XXX, XX 

XXXX XX. 

X .... 

XX. XXX, XX 

XX , XXXXX ... XX , XXXXX 



XX, XXXXX 

XXX . Xxx 

. Xxxxxx 58 lines 
... X per page 
XXX . Xxx 



The RUNOFF detects the entity of a word by marking off word-delimiters. 
A word is delimited in RUNOFF by one of the following: space (s) , tab(s) , 
linefeed or carriage return. Multiple and consecutive delimiters, such as 
multiple spaces, count as a single delimiter. Thus the source file can be 
prepared without worrying about the width of each line and the numfc>er of spaces 
between words, because RUNOFF will now treat a carriage return betvjeen two words 
and spaces between two words the same way. Oie exception is vrfien a carriage 

return is followed by a space: that is, when a line begins with a space at 

column 1. When the "automatic paragraph" mode is on, a space at column 1 is 
regarded as the beginning of a new paragraph, and RUNOFF initiates a specified 
format for a new paragraph, such as line spacings and indentation. On the other 
hand, punctuation marks such as ",", "?", etc are not recocfnized as word 
delimiters. Thus, the text "delimiters, and" is treated as one word, while 
"delimiters, and" is treated as two words. If you have a typing habit of not 
leaving a space after a punctuation mark, beware. 

The use of the terms "space", "vertical space", and "line space" is 
likely to be ambiguous and confusing, and needs to be clarified for the 
subsequent presentation in this chapter. 

The term space , vrfien used alone, will denote the horizontal space on a 
line. Most terminals and printers are set at a horizontal scale of 
10 character/ inch, and a space will measure 1/10 inch. For terminals with 
"Elite" type, each space measures 1/12 inch. The term "v ertical space" 
typically measures 1/6 inch in the vertical direction of typing. Iterms such as 
"single-space" and "double-space" refer to the vertical spacings. The term 
"line space " corresponds to the spaces between lines. Thus, if the default page 
size is 60 horizontal-spacings by 58 vertical-spacings, there is rocm for 58 
line spacings for single-spacing output, but only 29 line spacings for 
double-spacing output. With these definitions, there could be a difference in 
saying "skip 2 lines" versus saying "skip 2 vertical spaces". 



7.11 Basic RUNOFF Coirenands 

Interspersed in the text file are the RUNOFF commands vrfiich are 

identified by a period "." in column 1. Thus, to avoid misinterpretation by 

RUNOFF, the text itself should not permit a period in column 1. 
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Ihere are four types of RUNOFF commands according to their functions. A 
complete surrenary of the RUNOFF commands in these four classifications will be 
deferred to Section 7.14. Here, a limited set of basic ccxnmands will be 
presented. Each canmand is presented in its complete form and its abbreviation, 
and the lower case part of each canmand denotes an argument or a parameter. 

Before getting to the basic set of RUNOFF commands, one important 
implicit ccxnmand will be explained first. This command is rarely used as an 
explicit canmand in the source file, yet it is often built into other ccsnmands. 
Thus its action is often implied and included. 



.BREAK 
.BR 



This command will cause a BREAK, i.e. the 
current line will be output with no justification, 
and the next word of the source text will be 
placed at the beginning of the next line. 



(1) To set margins, spacings, and page size 

These are conmands to set the left and right margins, vertical spacings, 
and the page size to values other than the current ones. 



.LEFT MARGIN n 

.m n 



Set the left margin to n. "n" must be less than 
the right margin but not less than 0. Default=0. 



.RIOIT MARGIN n 
.RM n 



Set the right margin to n. "n" must be greater 
than the left margin. The default setting is 60. 



.PAPER SIZE n,m 
.PAGE SIZE n,m 
,PS n,m 



Set the size of page n lines by m columns. The 
default setting is 58,60. 



.SPACING n 
.SP n 



Set a ratio between vertical spacing and line 
spacing. The n can be fran 1 to 5. The default 
setting is 1. ".SP 1" is for single-spacing; 
".SP 2" is for double-spacing. 



Examples ; The following shows the commands in the source file and 
their effect on the output. The RUNOFF commands are highlighted in italics: 



Source File 



Output 



.LMO .RM20 

X XX XXX xxxx xxxxx xxxxxx xxxxxx 

XXXXX xxxxx xxxx xxxx XXX XXX XX. 

.1248 

YYYYY YYYYY YYYY YYYY YYY YYY, 

YY YY Y. 

.IMS .RM15 

ZZZ ZZ ZZZZZ ZZZ ZZ 

ZZ ZZZ. 



X XX XXX XXXX xxxxx 
XXXXXX xxxxxx xxxxx 

xxxxx xxxx xxxx XXX 
XXX XX. 

YYYYY YYYYY 
YYYY YYYY 
YYY YYY, YY 
YY Y. 

ZZZ ZZ 

ZZZZZ ZZZ 

ZZ ZZ ZZZ. 
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(2) To set text format 

The following ccmmands set the text paragraphing formats: 



•AUTOPARAGRAPH This ccmmand causes a blank line or any line 
.AP starting with a space to be considered as the 

start of a new paragraph. Format of a new 
paragraph is specified by a specified or a default 
".PARAGRAPH" canmand. 



. NOAUTOPARAGRAPH 
,NAP 



This command cancels the AUTOPARAGRAPH mode. 



.PARAGRAPH n,v,t This command causes a BREAK action and takes the 
,P n,v,t next line as a new line and the beginning of a 

paragraph. In the meantime, the formats of the 
subsequent paragraphs are set by the parameters n, 



n = number of indented spaces. The default value 
is 5, and n can also be negative. Negative 
indentation means a paragraph beginning to the 
left of the left margin of paragraph, such as 
this paragraph here. 



number of line spaces between paragraphs, 
can range frcxn to 5. 



It 



t = argument in the .TEST PARAGRAPH t command, 
v^ich is automatically executed \4ien 
paragraphing. 



.BLANK n 
.B n 



This canmand will cause a BREAK action and insert 
n blank line spaces after the last line. The 
parameter n can be negative to move the line to n 
lines frcm the end of the page. Note that the 
actual number of blank vertical spaces is equal to 
(n* spacing per line) . 



.CENTER n;text 
.C n;text 



This command will cause a BREAK and center the 
"text" in the source file. The centering is over 
column n/2, independent of the settling of the left 
and right margins. If n is not given, it is 
assumed to be the page width. 
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Bxample ; 



The following shows the paragraphing control: 



Source File 



Output 



.LMO .RM20 
.AP 

.P3,l,l 
.C20; EXAMPLE 

X XX XXX xxxx xxxxx xxxxxx xxxxxx 

XXXXX xxxxx xxxx xxxx XXX XXX XX. 

YYYYY YYYYY YYYY YYYY YYY YYY, 
YY YY Y. 
.IMS .P-3,1/1 

ZZZ ZZ ZZZZZ ZZZ ZZ 
ZZ ZZZZ ZZZ ZZZZ 
ZZZZZZ ZZZ. 



EXAMPLE 

X XX XXX xxxx 
xxxxx xxxxxx xxxxxx 
xxxxx xxxxx xxxx 

xxxx XXX XXX XX. 

YYYYY YYYYY YYYY 
YYYY YYY YYY, YY YY 
Y. 

ZZZ ZZ ZZZZZ ZZZ 
ZZ ZZ ZZZZ ZZZ 
ZZZZ ZZZZZZ 
ZZZ. 



Note that if in the above example, paragraphing were to go back to 
".mO.P3,l,l", the RUNOFF command should be ".P3,l,l .IMO" rather than 
".LMO ,P3,1,1". At the end of the above example, the paragraphing is set at 
negative indentation of 3 spaces. Thus if ".IMO" is applied while negative 
indentation is still in effect, you will be telling RUNOFF that the paragraph 
should begin to the left of column 1! 

(3) To control upper and lower cases 



.UPPER CASE 
.UC 



This ccmmand sets the output mode to upper case. 
All alphabets in the source file, upper or lower 
cases, will be forced into upper case in the 
output. 



.LOWER CASE 
.LC 



This command sets the output mode to lower case. 
All alphabets in the source file, whether upper or 
lower cases, will be forced into lower cases in 
the output. 



If .UC and .LC commands are both applied, 
reproduced as they are in the source file. 



the text cases will be 



To exert control of upper or lower case on individual characters, RUNOFF 
uses special symbols. This is discussed in Section 7.12. 



(4) To control filling and justifying 

RUNOFF assumes that the source file is to be filled and justified, and 
hence considers than default actions. However, on occasion, you may wish to 
reproduce the text exactly as given — for example, a tabulation by columns. 
Therefore, it is necessary that you should be able to enable and disable the 
filling and justification process by commands. They are listed below: 
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• FILL 
.F 



This command sets RUNOFF to a filling mode to add 
successive words fran the source text until adding 
one more word will exceed the right margin. It 
also sets the justification mode specified by the 
last appearance of a JUSTIFY or NOJUSTIFY command. 



.NO FILL 
.NF 



This command will disengage the FILL and the 
JUSTIFY modes. 



.JUSTIFY 
.J 



This command sets the JUSTIFY mode that will 
increase spaces between words until the last 
exactly meets the right margin. 



word 



.NOJUSTIFY 
.NJ 



This canmand turns off the JUSTIFY mode, but the 
FILL mode is unchanged. An output line is filled 
but not justified, giving a ragged right margin. 



The FILL and the JUSTIFY modes and their disabling commands have 
interacting influences. Turning off FILL would also turn off JUSTIFY, 
but turning off JUSTIFY does not affect the FILL. Because of this, 
note the following: 

a. The NOFILL-NOJUSTIFY mode need be used only wh<3re there are 
several lines of material to be copied exactly. If there is only 
one line, it is not necessary to use this mode if there is a BREAK 
before and after the line. 

b. Normally, FILL and NOFILL are used to turn both filling and 
justification on and off. It is usually desirable to do both. A 
subsequent appearance of a justification ccanmand will override the 
fill command. 

c. A combination of FILL and NOJUSTIFY commands will produce a ragged 
right margin. 

d. A combination of NOFILL-JUSTIFY will expand each line to justify, 
but this mode has doubtful utility. If this is applied, a JUSTIFY 
command should be given after every NOFILL command. 
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Example ; The following example 
justified and a ragged-right margin: 



shows the difference between 



Original Text 



This command sets 
RUNOFF to a FILL 
mode to add 
successive wards 
from the source 
text until 
the adding of one 
more word will 
exceed the right 
margin. It also 
sets the justification 
mode to be that specified 
by the last appearance 
of JUSTIFY 
or ^fOJUSTIFY command. 



FILL and JUSTIFY 

This command 
sets RUNOFF to a 
FILL mode to add 
successive words 
frcxn the source text 
until the adding of 
one more word will 
exceed the right 
margin. It also 
sets the 

justification mode 
to be that specified 
by the last 
appearance of 
JUSTIFY or NOJUSTIFY 
command . 



RUNOFF Output 



FI LL onl y 



This conmand 
sets RUNOFF to a 
FILL mode to add 
successive words 
frcm the source text 
until the adding of 
one more word will 
exceed the right 
margin. It also 
sets the 

justification mode 
to be that specified 
by the last 
appearance of 
JUSTIFY or NOJUSTIFY 
command . 



7.12 Special Text Characters 

A number of text characters, vAien placed in conjuction with the text 
material, exercise a change of the case and the mode operations. They are 
listed below, with examples following: 

(1) Ampersand (&) This character is used to specify 
underscoring of text. The character placed immediately after a "&" (no space in 
between) will be reproduced in the output as underscored. The underscoring can 
be turned on and locked by a double character ""&", and turned off and locked by 

(2) Circumflex C) and Back-slash (\) These two characters act 
as the up-shift and the down-shift keys of a typewriter. Thus, when a """ is 
placed before a letter of the alphabet, that letter is reproduced in upper case. 
Similarly, a "\" in front of a letter of the alphabet causes the letter to be 
reproduced as a lower case. Also, "^^" will lock the shift key at upper case, 
and "\\" will lock the shift key at lower case. 

(3) Number sign (#) Occasionally, it is necessary to include a 
fixed number of spaces in the text which should not be treated as word 
separaters. The character (#) is used by RUNOFF as a "quoted space" or a 
mandatory space that can neither be reduced nor expanded. Thus, if a fixed 
number of spaces is required in the output, those spaces may be reserved by a 
specified number of #"s. For example, "Section 2.13" may be reproduced as 
"Section 2.13", "Section 2.13", "Section 2.13", etc, depending on filling 
and justification of that line. These two words may even be split between two 
lines. However, "Section#2.13" can only be reproduced as "Section 2.13" on the 
same line. 



(4) Less-than sign (<) If a RUNOFF command of "FLAG CAPITALIZE" has 
been given at the beginning of the source file, then a less-than sign (<) placed 
immediately before a word will capitalize that whole word. 
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(5) Greater- than sign (>) If a RUNOFF command of "FLAG INDEX" has been 
given at the beginning of the source file, then a greater-than sign (>) placed 
immediately before a word will place that word in the index buffer memory. At 
the end of the source file, a ccxnmand of "DO INDEX" will produce an index 
section, v^ere all indexed terms are sorted in alphabetical order cind each with 
page reference. 



(6) Exclamation mark (1) This character marks the 
comments or the end of footnote lines. 



t)eg inning of 



(7) Semicolon (;) 

(8) Underscore ( ) 



This symbol indicates multiple commands. 



_ The above listed special characters are 

recognized by RUNOFF for having certain special control functions. Hence, these 
special characters will not be reproduced in the output. If a special character 
is to be reproduced as it is, its control function may be temporarily disengaged 
by placing an underscore (_) in front of that character. For example, 
"A&P Stores" and "A_&P Stores" will be reproduced respectively as "AP Stores" 
and "A&P Stores". The underscore sign can also be used to specify its own 

reproduction. For example, a ( ) and a ( ) text will be reproduced as {_) 

and ( ) respectively in the output. 



Examples ; The following shows the functions of special characters 
their effect on the output: 



and 



Special 
Character 


RUNOFF Source 


RUNOFF Output 

Nth derivative 
CT=Computerized Tcmography 

RUNOFF 

United States 
UNITED STATES 

AMERICA 
Amer ica 


s> 


StNth derivative 
:T=&Computerized STomography 

'^SRUNOFFXi 

.LC 

'^UNITED '^STATES 

"'^UNITED STATESW 

.UC 

AMERICA 

AWMERICA 

r. W. Sze 

T.#W.#Sze 


"&,\& 

\ 

W 


# 


T. W. Sze 
T. W. Sze 


- 


_#Footnote: 
#Footnote : 


♦Footnote: 
Footnote: 


< 


.FLAG CAPITALIZE 
If numberl<number2. 
If numberl_<number2. 
If <numberl_«umber2. 


If number 1NUMBER2, 
If number Knumber 2, 
If numberi<number;2. 



7.13 Selected RUNOFF Switches 



The switch is an optional part of the RUNOFF execution cc»ran<and string: 
Output Spec = Input Spec/Switches 



RUNOFF Switches 
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The switches are indicators, each consisting of a slash and a keyword, plus an 
optional argument. These switches are used to set or select program options. 
Many switches perform similar functions as the RUNOFF commands for setting or 
selecting modes and formats. In these cases, a switch would have the same 
effect as including a RUNOFF command at the beginning of the source file. Thus, 
if the function of a switch is already specified by either the default 
conditions or by specific canmands in the source file, that switch would be 
superfluous. Therefore, the usefulness of a switch is to augment a source file 
for those functions not specified or different from the default conditions. 
Therefore, the function of a switch should be regarded as setting an initial 
mode or condition. Whether that initial mode or condition will hold for the 
entire output depends on whether that mode or condition will be revised by 
commands downstream in the source file. 

A selected group of RUNOFF switches are tabulated next: 



Switches 
/AUTOPARAGRAPH 

/NOAUTOPARAGRAHl 

/CASE: LOWER 
/CASE: UPPER 

/DOWN:n 

/LINES :n 
/PAUSE 
/RIGHT :n 

/SEQUENCE 

/SIMULATE 
/SPACING :n 


Functions 

A leading space in column 1 initiates format for 
a new paragraph. 

Turn off auto-paragraph mode. 

Execution starts in lower case mode. 
Execution starts in upper case mode. 
UPPER is the default condition. 

Move down text of each page by n lines. 
Default n=0. 


Initial page size in n lines. Default n=58. 


Pause between pages (to allow paper changes) . 

Move to the right text of each page n spaces. 
Default n=0. 

List record number of source file at the left of 
the RUNOFF output. 

Advance to the next page by form feeds. 


Start with vertical spacing setting n. 
Default n=l. 
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7.14 A Sunnmary of RUNOFF Coimiands 



RUNOFF commands fall in four categories: (1) Text formatting, (2) Page 
formatting, (3) Mode setting, and (4) Parameter setting. They are listed below: 

(1) Text formatting commands ; 



Command & 
Abbreviation 


Argument 


Function 


.BLANK 
.B 


n 


To skip n 1 ines 


.BREAK 
.BR 




To start a new line of output. 


.CENTER 
.CENTRE 
.C 


n 


To center the next line around column n/2 

Comment, ignored by RUNOFF execution. 
To reserve a space for an n-line figure. 


.COMMENT 


text 


.FIGURE 
.FG 


n 


.FIGURE DEFERRED 

.FOOTNOTE 
.FN 

.LIST 
.LS 

.LIST ELEMENT 
.LE 

.END LIST 
.ELS 

.INDENT 
. 1 

.NOTE 
.NT 

.PARAGRAPH 
.P 

.SKIP 
.S 


n 
n 
n 

n 

text 

n,v,t 

n 


To defer an n-ilne figure to the next page If 
there is no room In the current page. 

To start an n-line footnote. 

(Input footnote lines until "I" in col.1.) 

To start a list of items with spacing n. 

To start listing items. 

To end a 1 ist . 

To indent the next 1 ine n spaces. 

To start an Indented note with the heading 
"text" centered. 

To start a new paragraph. 
Equivalent to: .1 n .3 v .TP t 

To sl<Ip n*spaclng vertical spacings. 



Table 7,6 RUNOFF Text Formatting Commands 
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(2) Page formatting commands ; 



Command & 
Abbreviation 


Argument 


Function 


.APPENDIX (.AX) 




Start next appendix with rest of line as name. 


.CHAPTER (.CH) 
.DO INDEX (.DX) 


-~- -- 


Start a new chapter with rest of line as name. 


Output Index with rest of line as title. 


.END SUBPAGE 
.ES 




Stop subpage numbering 


.FIRST TITLE 
.FT 




Include title on the first page. 


.HEADER LEVEL 
.HL 


n 


Start section at level n(=1 to 5); the rest Is 
the name. 


.HEADER (.HD) 


case 


Issue "page" In case(=UPPER, LOWER, MIXED, or NONE) 


. INDEX 




Insert rest of this line In Index. 


.NO HEADER (.NHD) 
.NO NUMBER (.NNM) 
.NO PAGING (.NPA) 
.NO SUBTITLE (.NST) 




Suppress page header. 
Suppress page numbering. 
Stop spliting into pages. 
Suppress subtitles. 


.NUMBER APPENDIX 
•NUMBER CHAPTER 
.NUMBER INDEX 


n 

n 


Set appendix to Appendix n. 


Set chapter number to n. 




Set chapter heading to "INDEX". 


.NUMBER PAGE 
.NUMBER (.NM) 


n 


Resume page numbering at page n. 


•NUMBER SUBPAGE 


ch 


Set subpage number to ch (A-z). 


.PAGE (.PG) 




Start a new page. 


.PAGING (.PA) 




Resume breaking Into pages. 


.PRINT INDEX 
.PX 




Start printing the Index. 


.SUBPAGE (.SPG) 




Start sub-page numbering. 


.SUBTITLE (.ST) 




Use the rest of the line as the subtitle. 


.TEST PAGE 
.TP 


n 


Skip to a new page If fewer than n lines are 
left. 


.TITLE (.T) 




Use the rest of the line as the title. 



Table 7.7 RUNOFF Page Formatting CommancSs 
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(3) Mode setting Coirmands ; 



ocommand & 
Abbreviation 


Argument 


Function 


.FILL 
.F 




Resume filling and Justifying each line. 


.NO FILL 
.NF 


Stop filling and Justifying. 


.JUSTIFY 
.J 

.NO JUSTIFYING 
.NJ 

.LITERAL 
.LT 

.END LITERAL 
.EL 

.LOWER CASE 
.LC 

.UPPER CASE 
.UC 

.PERIOD 
.PR 

.NO PERIOD 
.NPR 

.FLAG 
.FL 

.NO FLAG 
.NFL 

.FLAG ALL 

.NO FLAG ALL 
.NFL 




Resume Justifying the text. 
Stop justifying. 


Treat the following lines exactly as they 
appear, including special characters. 




Terminate LITERAL treatment of text. 




Lock in the lower case mode (®®). 




Lock in the upper case mode C"®) 


ch 
ch 


Leave two blanks after these punctuation 
marks (.!?:;). 


Stop the PERIOD mode. 


Turn flag ON according to the flag argument 
ch : ( CAP 1 TAL 1 ZE , CONTROL , ENDFOOTNOTE , 1 NDEX, 
LOWERCASE , QUOTE , SPACE , SUB 1 NDEX, UNDERL 1 NE , 
UPPERCASE ) . 

Turn off specified flag. 

Turn on al 1 flags. 

Turn off all flags except (.!). 



Table 7.8 RUNOFF Mode Setting Commands 
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(4) Parameter Setting Commands ; 



Command & 
Abbreviation 


Argument 


Function 


.AUTOPARAGRAPH 
.AP 




Accept line with leading spaces as the 
beginning of a new paragraph. 


. NOAUTOPARAGRAPH 
.NAP 




Deactivate AUTOPARAGRAPH. 


.AUTOTABLE 
.AT 


n 
n 


Accept line without leading space as the 
beginning of a new table. 

Set left margin at nth column. Text begins 
on the n+lth column. 


.LEFT MARGIN 
.LM 

.RIGHT MARGIN 
.RM 


Set right margin at nth column. Text stops 
at the nth column. 

Set the page size to n lines by m columns. 
Set vertical spacing between lines as n. 
Set standard setup with width of n columns. 


.PAGE SIZE 
.PS 


n,m 
n 
n 


.SPACING 
.SP 

. STANDARD 
.SD 



Table 7.9 RUNOFF Parameter Setting Commands 
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7 . 15 Introduction 

The EEC System-10 is so designed that a batch job may be sutxnitted either 
in cards at a card reader or by a disk-stored control file at a remote terminal. 
In both cases, the output printouts are returned only at the operating station, 
usually at a line printer, and results of terminal-submitted batch processing 
jobs are not printed at the terminals unless they are done as described in 
Section 7.17. Terminal-submitted batch jobs have serious dravitoacks. On one 
hand, the prime advantage of man-machine interaction is lost; on the other, the 
turn-around- time is not improved. In the meantime, it retains the high overhead 
of using the time-sharing system, and is therefore more expensive.. However, on 
occasions, subnitting batch jobs at a terminal may be the only v/ay to get your 
job done. A user may be located at a remote place when batch jobs are to be 
submitted, and a terminal may be the only input device accessible to him. Or, 
since in general a time-sharing user has a smaller core allocation than a batch 
user, sutxnitting his job as a batch job may be the only way he can run a large 
program. 

DEC System-10 has monitor commands of SUBMIT and QUEUE INP; for 
submitting batch jobs at a terminal. However, at the University of Pittsburgh, 
these two commands are disabled to allow a unification of all queue processes, 
including the batch queue. A service program called OPRSTK (Operation Stacker) 
is implemented which replaces the DEC's CDRSTK (Card Reader Stacker) program. 

To submit a batch job at a terminal, the following steps should be taken 
after the user has signed on at the terminal: 

(1) Create a control file using an editor such as the UPDATE (see 
Chapter 2) . Save the file on disk and give it a name with an extension of CTL, 
such as NAME. CTL. 

(2) Run the OPRSTK program by either of the two monitor connmands: 



or simply. 



.R OPRSTK 

ENTER FILE SPECIFICATION > NAME. CTL 

.OPRSTK NAME 



After the job is queued, the system will respond with a verification message. 
Output results are printed at the system facilities, but no result will be 
available at the user ' s terminal . 

The details of selected batch commands will be given in Chapter 9. We 
will only deal with the creation of a control file and its sutmission here. 



7 . 16 To Create a Contr ol File 

Creation of a control file on disk by the UPDATE editor is no different 
from creating any other file. Only one point should be remembered. Such a 
control file will contain a number of BATCH commands vrfiich begin with a "$" in 
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colunn-1. When such a line is created by UPDATE, it will be misinterpreted by 
the editor as an UPDATE command. The problem may be solved either by starting 
the "$" at column-2 and once entered, removing the blank in column-1 by a 
$CHANGE command, or by using an UPDATE command of $IS # at the beginning of the 
editing session. In the latter case, only those lines beginning with "#" in 
column-1 will be taken as UPDATE commands. 

Two examples will be given here, to be carried out from the creation of 
control files through their submission and execution as batch jobs. Both are 

examples used in this book solution of a cubic equation by the Newton-Raphson 

method, one example by FORTRAN programming, and the other by PIL programming. 
We assume that these two programs -have already been stored in the disk and named 
as NEWTON. FOR and NEWTON. PIL respectively, and their contents are: 

NEWTON. FOR 

READ(5,10)A,B,C,D,X1 

10 FORMAT (F21. 7) 

1 X2=X1-{A*X1**3+B*X1**2+C*X1+D)/(3.*A*X1**2+2,*B*X1-K:) 
WRITE(6,10)X2 

IF (ABS( (XI -X2) 7X2-0.001)3,3, 2 

2 X1=X2 
GO TO 1 

3 WRITE (6, 11) X2 

11 FORMAT(/' THE REAL ROOT =' , F20.7) 
STOP 

END 

NEWTON. PIL 

1.1 DEMAND A, B, CD, XI 

1.2 SET X2=X1-{A*X1**3+B*X1**2-K;*X1+D)/(3*A*X1+2*B*X1-K:) 

1.3 TYPE X2 

1.4 IF ABS of ((X1-X2)/X2) $LE 0.001, TO STEP 1,6 

1.5 SET X1=X2 
1.51 TO STEP 1.2 

1.6 TYPE IN FORM 1, X2 

1.7 STOP 
FORM 1. 

THE REAL ROOT = . !!!! 

The example was run with a given equation of: 



Thus the input data are 1, -16, 65, -50 and 16 respectively for A,B,C,D,X1. The 
control files needed are: 

FORTRAN Control File FORT.CTL PIL Control File PIL.CTL 



$JOB [115103, 320571] 


$JOB [115103, 320571] 


$DATA 


.PIL NEWTON 


1. 


DO PART 1 


-16. 


1 


65. 


-16 


-50. 


65 


16, 


-50 


$BOD 


16 


, EXECUTE NEWTON. FOR 


$EOJ 


$EOJ 
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7.17 To Submit a BATCH Job at a Termina l 

Once the control file is prepared, submission of a batch job is simply to 
supply the control file name in running the service program OPRSTK. The 
proceedings are given next as illustrations: 

Example ; Control files have been prepared as FORT.CTL and PIL.CTL. 

(LOGIN proceedings here) 

.OPRSTK PIL 

$JOB[115103, 320571] 

; ; ; END OF JOB AFTER 10 CARDS /SEQUENCE NUMBER IS 7264 ; ; ; 

EXIT 

,0P FORT 

$JOB [115103, 320571] 

; ; ; END OF JOB AFTER 10 CARDS / SEQUENCE NUMBER IS 7266 ; ; ; 

The job logs of both jobs are included in Chapter 9, v^iere the details of 
batch jobs will be given. 

If a user wishes to capture the output data to type it out on his 
terminal, to print multiple copies, or to use it as an input in the subsequent 
processing, he may do the following: 

.ASSIGN DSK: 6 
.OPRSTK FORT.CTL 

(Wait until the batch job is done. Use QUEUE command 
to inquire about the job status. See Chapter 8) 

.TYPE FOR06.DAT 
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VIRTUAL MEMORY 



7.18 The Virtual Memory Procedure 

In a multi-programming and multi-processing system, it is often not 
possible to accommodate all the programs and data in the main memory at the same 
time. Those programs and data not being executed at the time are moved out of 
the memory and stored temporarily in the fast mass storage. Then as the user is 
assigned his time slice, his programs and data are moved back into the main 
memory. This is a standard and unique operation, called swa^^ing , in a 
time-sharing system v^ere the main memory is shared by many users and many 
programs. The mass storage in this case is called a swapping device . 

The principal mechanism of the swapping process is the techique of 
memory map , \*iich translates the addresses produced by the processor into 
addresses in the physical memory. With the memory map handling the address 
translation, the user is free frcm the task of keeping track of manory locations 
before and after swapping. 

The main memory is allocated to the user in units of "Ks" or "Ps" , vrfnere 
IK memory is equal to 1024 words, and IP (P for page) is 512 words. Each user 
is allocated a physical memory, whose size is limited by the user's manory limit 
or memory request, whichever is smaller. When the program and/or data are too 
large for the allocated size, the program will attempt to access monory outside 
the allocated area, causing a fatal memory access error called a "manory fault." 
The job is then aborted. In such a case, the user must scale down his problem 
or apply certain special techniques such as overlays and chaining of programs. 

The techniques of swapping can now be extended to the user's program 
execution. A part of the user's program and/or data will be in his memory in 
the usual way; the rest is in the mass storage. When a "memory fault" occurs, 
the fault manager (a software unit) will take note of the fault. It will then 
bring into the main memory a page frcxn the mass storage, and take out a page 
from the memory (back into the mass storage) to make rocm. Thus, a memory 
access fault may cause some time delay due to the swapping (called the 
overhead) , but it will not cause the job to abort. Here from the view point of 
the user , the mass storage is in effect , although not in fact , a part of his 
memory allocation. Therefore, such a memory is then called the virtual memory . 
In contrast, the actual memory allocated to the user is the physical manory. 

Assuming that the virtual memory will be used only in a batch job, the 
procedure of using the virtual memory technique is outlined as follows: 

(1) The $JOB card should include a CORE switch specifying the core 
request. Without this switch, the system default allocation applies for the 
job. 

(2) Set the physical core limit by a monitor command: 

.SET PHYSICAL LIMIT mK 

where ^T< is the core size in K-words. If this is omitted, the physical limit is 
assumed to be that requested in the $JOB card. 

(3) Prepare a core image (aSAV or EXE file) of the programs and save it 
as a SAV or EXE file. This may be done by using the LINK-10 loader by either of 
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the two following ways*: 

•IDAD/LINK list 
.SAVE flname 
or, .IDAD/LINK flname/SAVE, list 

where list contains a list of programs to be loaded, and flname is the name of 
the EXE file to be saved. Note that the /LINK switch must be placed in front of 
the list of program names. 

(4) Request virtual monory facility by setting its limit: 
.SET VIRTUAL LIMIT nK 



The virtual memory limit must not be more than twice the physical limit, or 
n$ 2m . Also, after the current job is finished, the virtual limit should be 
reset back to zero. 

(5) Run the program, using the EXE file just saved: 
.RUN FLNAME 



Although the virtual memory facilities are available, users should 
exercise considerable restraint in using them, because they expancJ the memory at 
a great expense to efficiency. Some installations make a policy of using the 
virtual memory as a last resort. When a user does use the technique, he should 
examine his program very carefully and modify it if necessary. The general 
principle is that the execution should have access to contiguously stored data 
or programmed steps. For example, the order of subscripts as indexes becomes 
critically important in a multiple-dimension array processing. Also, the 
program should try to avoid branching statements, such as GO TO. In any event, 
this facility is available only by special permission or arragonent. 



*If the LINK loader is the default loader of the system, the "/LINK" switch 
shown below will not be needed. 
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CHAPTER 8 
OPERATING SYSTEM COMMANDS 



8.1 Introduction 

The software system of the DEC System-10 contains language processors and 
a variety of service programs. The most important one is the ope^rating system , 
also called the executive system , the supervisor or the monitor . It is a master 
program wliich exercises an overall control on the entire System. It performs 
the scheduling of users from the queue, supplies them with proper language 
processors and other system resources vihen requested, keeps account of charges, 
and performs many other service functions. An operating system commjmd may be 
issued only when the user is in the monitor mode, which is indicated by the 
appearance of a prompt symbol "." (a period) on the terminal output. If the 
user is not yet in the monitor mode, he can get there simply by pressing the 
CTRL-C ("O key on the terminal. 

Before going into some details of the operating system commands, it is 
necessary to get acquainted with some terminology. 

(1) Job The entire sequence of steps, beginning from the 
signing-on step and ending with the signing-off step, is call5K3 a job . Each 
job, while active, is assigned by the System with a job number, such as 
"Job 16". Within each job, the user can perform many functions, such as calling 
on system resources like tapes and disks, preparing and running programs, and 
communication with the System or other users. 

(2) System device name Each system peripheral device has two names, 
its ghysical device name and its logical device name . They are explained below: 

A. Physical device name Each input or output peripheral 
device associated with the System has a standard physical device name so that it 
can be referred to consistently. The format of a physical device name is: 

DEVnnn : 



where: DEV = three-character abbreviation assigned for a class of devices, 

for example, LPT for all line printers in the system. 

nnn = zero to three-digit number indicating the numerical designation 
for a particular unit in a class of devices, such as "DTAOIO:" 
for DECtape drive Number 010. 

: = a colon, an integral and terminating part of the device name. 
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If there is only one device in a particular class, the part "nnn" may be 
omitted. For example, "PLT:" is used to represent the system plotter, "PRG:" 
the Program Library, and "SYS:" the System Library. It may also be omitted in a 
multi-unit device name if only one such unit is assigned and available for 
general usage, such as "DSK:". A list of physical names of selected system 
devices is shown in Table 8.1. 



Device 


Physical Names 


Array processor unit 


APU: 


Card Punch 


CDP: 




Card Reader 


CDR: 


DEC tape Drive 


OTA: 

DTAOIO:, OTAOll:, etc. 


Disk 


DSK: 


Line Printer 
Magtape Drives 


LPT: 

LPTS3:, LPTS6:, LPTSlO:, etc. 


MT7: (7-track drive) 
mS: (9-track drive, 800/1600 BPI) 
MT9: (9-track drive, 1600/6250 BPI) 
MTAOIO:, MTAOll:, etc. 


Operator's Terminal 
Plotter 

System Library 
Program Library 
Engineering Library 
Terminals 


CPR: or TTYO: 


PLT:, PLTOIO: 


SYS: 


PRG: 
ENG: 


TTY: 

TTYO:, TTYie:, TTY63:, etc.- 



Table 8.1 System Devices and Their Physical Names 



B. Logical device name The user may also define the device with a 
name of his choice, which may or may not be the same as the device's standard 
physical name. Such a user-chosen name is called the logical device name. A 
logical device name may be assigned by either the ASSIQ^ command or the MOUNT 
command, as described in this chapter. Once a logical name is assigned, a 
device may be referred to by either its physical or logical name. Since the 
logical name may be chosen arbitrarily, the name chosen may already exist as a 
physical name of a different device. The conflict is resolved by the System 
that gives the logical name assignments precedence. Sometimes, it is beneficial 
to purposely cause such a conflict. For exeample, suppose a programming project 
has been completed after a great deal of effort on its preparation, debugging, 
compiling and documentation writeup. Suppose the program is designed to produce 
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its output on a line printer. Suppose now you wish to run this program, but you 
want a disk file output rather than a printer output. Instead of making 
extensive changes on the program and re-compiling it, you can simply call the 
disk a "printer" by giving the disk a logical name of the printer. Then, when 
you run the program, the System would take the disk as the "printer" and produce 
the output there. 

The format of a logical device name is': 

IJOGDEV: 

where IDGDEV is an one to six-character alphanumeric string, and the colon is an 
integral and terminating part of the name. 

(3) Switch In most operating system commands, options or 
variations within each command are available. For example, to print a file on a 
line printer, a user can have a choice of printing it in single-space, 
double-space or triple-space, or specifying the number of copies he wants. 
These options are built into the operating system commands as option switches or 
simply switches . There are two general formats of switches: 

/KEYWORD 
/KEYWORD: argument 

In the first format, the option does not require any otlier information, such as 
/FAST, /FORTRAN, etc. In the second format, the option will require a parameter 
specification, such as /SPACING: DOUBLE or /SINCE: 22-JUL-l 980 or /PROTECTION: 155. 
Generally, these switches may be placed anyv^iere at the command keyvMord, and the 
order of the multiple switches is optional. However, when there is a list given 
in an Input/Output command, the placement of a switch in the command structure 
will make it either a "global switch" or a "local switch". The effect of a 
local switch only applies to the file it specifies. The effect of a global 
switch will extend to the rest of the command structure, unless its effect is 
overriden temporarily by a local switch or permanently by another global switch. 
When the following command is applied: 

•PRINT PRGl. FOR, /COPIES: 2 PRG2.F0R, PRG3.F0R, PRG4.F0R/C0PIES:1, PRG5.F0R 

1 copy each of PRGl. FOR and PRG4,F0R and 2 copies each of PRG2.F0R, PRG3.F0R and 
PRGS.FOR will be printed. 

(4) DEFAULT CONDITION When an operating system command is executed, 
it runs a particular system program. Early in that program, if options are 
allowed, a set of initial conditions is established for these options. These 
initial conditions will remain unless they are replaced by the specified 
switches in the user-issued command. Thus, if user's option is the same as the 
initial conditions, there is no need for him to include such a switch in the 
command. Or, if the user is not familiar with the available options of a 
particular command, the command will be executed according to the established 
initial condition set. These conditions established by the System are called 
the default conditions of the switches. They are judiciously chosen to 
represent what an average user would want in a typical case. For example, in 
listing a file on the printer, single-spacing will be assumed if spacing option 
is not specified. Many default conditions are locally defined by a process 
called operating system generation, at which time the conditions are fixed 
according to such considerations as the installed system capacity, institutional 
operating policy, all aspects of the user population, and many local 
circumstances. Therefore, these default conditions may vary from one 
installation to another. Even at the same installation, they may vary from one 
time to another. 
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(5) File specification For the purpose of identifying a file, each 
file is given a name. Once the names are established, the system will maintain 
a directory so that users need not be concerned with the exact location on the 
disk for their files. For the DEC System-10, the format of a complete file 
specification is: 



DEV: NAME.EXI' [m,n] <xyz> 

vrfiere: DEV: = name of device on v^ich the file is stored, 
omitted in the complete specification, DSK: 
to users) is assumed. 



If this part is 
(the disk assigned 



NAME = filename consisting of one to six alphanumeric characters with 
no embedded blanks. 



,EXT = file extension consisting of zero (0) to three alphanumeric 
characters with no embedded blanks. If it contains zero 
characters, it is called a null extension. The period is an 
integral part of the extension. 



[m,n] = the PPN of the person who created and 
default PPN is the current job's PPN. 
brackets. 



owns the file. The 
Note the use of square 



<xyz> 



a three-digfit protection code, 
brackets. 



Note the use of angular 



The file extension is a part of file identification, used to indicate the 
type or language of the file. Although any zero to three-character combination 
can be used as a file extension for any file, the following are some most 
frequently used file extensions, and their meanings are recognized by the 
System. 



Examples ; 



NEVWON.PIL 
NEWTON. FOR 
NEWTON. REL 
FOR01.DAT 



A PIL program file named NEWTON. 

A FORTRAN program file named NEWTON. 

An object program compiled from NEWTON. FOR 

A data file named FOROl. 



Symbols "*" and "?" are used as "wild cards" to represent a class of file 
names or extensions, as illustrated by the following examples: 



Examples : 

NEWTON.* 

*.FOR 



All files named NEWTON of any extension. 
All FORTRAN files. 
All files. 



F????.DAT 



All data files whose names are 5 characters 
or less and begin with F. 
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D12??,D?? All files whose names begin with "D12" and 

contain 5 characters or less, and vrfnosse 
extensions begin with the letter D and con- 
tain 3 or less characters, 

D12??,* All files whose names begin with "D12" and 

contain 5 characters or less. 

The protection code is a 3-digit octal number xyz, each digit ranging 
from to 7. Each digit defines a protection level of the file against a 
certain class of users: 

X = protection level against the file owner himself. 

Y = protection level against users sharing the same project number. 

z = protection level against the general public. 

The level of protection ranges from level to "', and level-7 is the 
highest. The exact definition of each protection level is given below: 

Code Digit Access Protection* 

7 No access privileges 

5 Execute only 

+ Read privilege 

+ append privilege 

+ update privilege 

+ write privilege 

+ rename privilege 

+ change protection privilege 

Access protection can be changed by executing RENAME or PROiDECT monitor 
command (see Chapter 6) or the PIP program (see Chapter 7) . since there are 8 
levels of protection in each of three classes of users, there are 512 different 
shades of protection-level combinations possible. Normally, one need only be 
concerned with a few commonly used codes: 

Protection Codes Applications 

077,177 Strictly private and non-sharable, such as 

grade files maintained by an instructor. 

057,177 Sharable within a project, for example, a 

program to be shared by all students in a 
cour se . 

055,155 Sharable with the computer community, but 

the file may not be modified by anyone 
except the file owner . 

The System assigns a default protection level of 057, set automatically 
by the computer if the person does not specify any protection code when he 



5 


Level 6 


4 


Level 5 


3 


Level 4 


2 


Level 3 


1 


Level 2 





Level 1 



*Subject to minor local variations. For example, at the University of 
Pittsburgh, access protection designated by the x-digit has been modified 
slightly. 
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creates the file. In some course work, instructcJrs may arrange to have default 
protection level automatically set at 077. In such a case, the protection code 
of a student's file is 077 to his classmates, but is 057 to his instructor. 

The Operating System of a computer is the most important and extensive 
software system. For DEC System-10, its Operating System contains more than a 
hundred commands, and some of its commands contain more than two dozen switches 
in each command. Studying and mastering the full set of commands can be an 
overwhelming task. 

In the sections that follow in this chapter, a judiciously selected 
subset of these commands and a selected subset of their respective switches will 
be included. Since not every operating system command will be useful or 
meaningful to an average user, nor need he know every switch or available 
option, these subsets are chosen on the basis of what the author believes to be 
the most important and frequently used ones. The readers are referred to 
Reference 1 for a complete description of the operating system commands and 
their respective switches. 

The discussions of the operating system commands will be functionally 
divided into six groups: 

(1) Job initiation and termination commands 

(2) Communication and status reporting commands 

(3) Source file preparation commands 

(4) Allocation of facilities commands 

(5) Program execution and control commands 

(6) File management commands 

They are presented in the following sections. 
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CHAPTER 8 



OPERATING SYSTEM 



JOB INITIATION AND TERMINATION 



8.2 Job Initiation at a Remote Terminal 

The sign-on procedure to initiate a job has been <3iscussed in 
Section 1.8. For the purpose of completeness, they are again inclijded here. 

Once a user has a valid pair of ID numbers (the PPN) and has a valid 
password, he may now sign on at any remote terminal by following the procedure 
outlined below: 



Hard-Wired Units 



Dial-up Units 



(1) Turn on switches. Press C if 
there is no prompt symbol "."• 
After the prompt "." appears, 
type "I" (for INITIATE) and 
the following lines will be 
typed out on the terminal: 



(1) Turn on switches and dial the 
computer number.* If the line 
is busy, there is a usual busy 
signal. When the call gets 
through, a high-pitch tone can 
be heard. Place the phone set 
on the seat of the acoustic 
coupler. Wait until the READY 
or CARRIER light comes on, 
typetC, and the following two 
lines will be typed out on the 
terminal : 



PITT DEC-1099/A 63A. 41B 15:36:41 TTY43 system 1237/1240 
PLEASE LDGIN OR ATTACH 

where "1099/A" indicates System A, "63A,41B" the monitor version, "15:36:41" the 
time of the day in 24-hour clock, "TrY43" the line number assigned. If "1099/B" 
appears instead of "1099/A", it means the user is in touch with Elystem B. If 
the user finds himself in a wrong system, he requests a change by typing: 



TTY SYSTEM B 



TTY SYSTEM A 



after the prcmpt symbol. 

(2) Type the monitor command after the prompt symbol: 



DOGIN m,n 
IDGIN rt^/n 



where 



project number , 



n = programmer number . 



The difference between "m,n" and "m/n" in the two monitor commands is that the 
latter form will suppress the message of the day from the Computer Center when 
the sign-on procedure is completed. It is possible that you have seen the 
message several times already, and may not care to read it another time. 

(3) Enter the password v*ien requested. The password will be entered in a 
non-print mode, and the typed password will not appear on the terminal. This is 
to maintain the security of the password. 



*For University of Pittsburgh users, dial (412) 621-5954. 
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If the entered password is an incorrect or invalid one, the system will 
respond with an error message and a request for the PEN. After supplying the 
PPN again, another password request will be made by the computer. The user has 
five chances to sign on correctly. After that number of unsuccessful trials, 
the job is killed, and the user must restart the entire procedure to sign on. 

If the password is found to be valid, the system will respond with 
information on the status of the project, the last sign-on time and date, the 
time of day, and the "message of the day" from the Computer Center. The last 
item may be suppressed if the user uses the LOGIN command with the m/n 
specification. 

After all preliminary reports are finished, a prompt symbol "." is 
printed on a new line, and the computer pauses and waits for input. The user is 
now connected to the computer at the monitor level , and the sign-on procedure is 
completed . 

The following two cases are examples of sign-on. Explanatory remarks are 
also given along with the remote terminal printout. As used throughout this 
book, those lines entered by the users will be in italics : 



Printout on Terminal Remarks 



I 



To initiate 

PITT ra;C-1099/A 63A.41B 16:19:17 TTY43 system 1237/1240 Computer response 

.TTY SYSTEM B Ask for System B 

PITT DEC-1099/B 63A.41B 16:19:50 TTY43 system 1237/1240 System B response 

.LOGIN 115103,320571 Sign-on command 

JOB 35 PITT DEC-1099/B 63A.431B TTY43 Wed 7-May-80 1619 

Password: (password) Enter password 

Last login: 7-May-80 1617 n^ ^ i-^ 

i_- nn n-. r, ■ L. J TO n Password valid 

Usage ratio: 22.13 Units used: 33.5 

SYS B DOWN 0000-0800 MCN ^4AY 12 FOR REGULAR HARDWARE MAINTENANCE 

SYS B DOWN 0000-0300 TUE MAY 13 FOR REGULAR SOFTWARE MAINTENANCE 

DUE TO HARDWARE PROBLEMS THE ARRAY PROCESSOR WILL BE Message of tlie day 
TEMPORARILY OFF LINE UNTIL FURTHER NOTICE 



,LOGm 115103/320571 Sign-on command 

JOB 23 PITT DEC-1099/B 63A.41B TTY43 Wed 7-May-80 1815 

Password: (your password) Supply a password 

Last login: 7-May-80 1619 

Usage ratio: 2.13 Units used: 33.5 On line 
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8.3 Password 

To sign on the DEC-10 system, the required identifications are a valid 
PPN and the associated password. Security of PPNs is impossible because they 
are publicly displayed in many places - in DXIN printout, in the file 
directory, in printout identification, etc. Thus the only real safeguard and 
security of a computer account is the password. 

The need for protection against unauthorized use of your account by 
another person goes beyond accounting reasons. There have been numerous 
incidents of computer vandalism in the past. The most frequent vandalism was 
change or erasure of programs or data without the owner's knowledge. 

The only protection against such unauthorized use is to install a 
password, to keep its security, and to change it frequently. As a matter of 
prudence and necessity, the user should change his password regularly as a 
standard practice and vi*ienever he suspects the password is no longer secure. 

Changing a password at a terminal can only be done at the LOGIN time by 
using either of the following DOGIN format: 



or. 



LOGIN m,n/PASSWORD 
IDGIN nv/n/PASSWORD 



where "m" and "n" are the PPN. The following shows a sign-on session with a 
password change. Since the process is interactive, the explanation should be 
self-evident: 

LOGIti 115103/320571/PASSWORD 

JOB 16 PITT DEC-1099/B 63A.41B TTY43 Wed 9-May-80 2003 

Password: Your old password 

New Password: Your new password 

Retype for verification 

New Password: Your new password again 
Last password update: 24-Apr-80 1255 
Last login: 22-Apr-80 1642 
Usage ratio: 0.84 Units used: 33.1 



8.4 Job Termination at a Terminal 

To leave the system, the user must terminate his job by supplying a 
monitor command KJOB ("to kill the job") . The system will respond by requesting 
a code letter for confirmation and file disposition. Thus, the command format 
for signing-off is: 

.KJOB 

CCWFIRM: Code Letter 
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A shortened form of this command is: 

.K/Code letter 
The most commonly used code letters in the KJOB command are: 

F = fast signoff; save all files 

D = fast signoff; delete all files. Computer will respond with A 
confirming question: "DELETE ALL FILES?" Answer YES and return the 
carriage. 

P = preserve all files except temporary files. 

H = HELP! Computer will respond with detailed instructions, 

I = list file names, one at a time, and apply code letter decision 
individually. The code letters for individual decision are: 

P = preserve the file 

S = save the file 

K = delete the file 

Q = learn if over logout quota on this file 

E = skip to next file and save this file if below logout quota for 
this file. If not below logout quota, a message is typed and 
the same file name is repeated. 

H = HELP. Computer will respond with the above information on code 
letters. 



While files are disposed per user's code letter instruction, the computer 
will make a check on logout quota, gather all usage and accounting information, 
terminate the user's job and print out a summary of the job. For example: 

K/F 

JOB 15 [115103,320571] off TTY43 at 2032 9-May-80 Connect=29 Min 
Disk R+W=83+76 Tape IO=0 Saved all files (450 blocks) 
CPU 0:04 Core HWM=11P Units=0.1263 ($9.48) 

The printout indicates that this user, with PPN of 115103,320571, was 
assigned line 43 and job 16, signed off at 2032 on May 9, 1980. His terminal 
was connected to the system for 29 minutes, used CPU or computer time for 4 
seconds. He used disk, but not magnetic tapes. He has 450 blocks of saved 
files. For this job, the highest core area used (HWM=High-Water-Mark) was 11 
pages or 5.5K words, and the charge is 0.1263 unit or $9.48. 

The "unit" is an accounting device which combines all charges of the 
service, including CPU time, disk usage, the length of connect time, the size of 
core used, and time of the day, and a base charge, each with an appropriate 
weighting factor to form an accounting formula. 
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8 , 5 Communication in the Time-Sharing Syste m 

Conmunication with the Computer Center staff and other uaers in the 
System is provided by several commands: 

(1) SEND Conroand The SEND command enables a user to senci a message 
from his terminal to another, including the system operator's terminal. The 
command format is as follows: 



or , 



SEND dev: message 
SEND job n message 



vi^ere dev: = TTYM:, the physical name of the destination terminal and M is 
its line number, e.g., TTY43:, TrY66:, etc. 

or, = OPR: (for operator, same as TTYO:) 

and n = job number at the destination 

Example : Suppose at a remote station TTY20:, a message is sent to 
station TTY40: 

.SEND TTY40: MET YOU FOR LUNCH IN TEN MINUTES? 
At the destination TrY40, the message will interrupt the job and is printed out: 

;;TTY20:- MEET YOU FOR LUNCH IN TEN MINUTES? 

The user can determine his own terminal line number by examining the LOGIN 

printout message or by issuing a command "PJOB," The command SYSTEM/J will print 

out the system active job status at the moment, including job numbers and line 
numbers. 

(2) R MEMO Command This is a command for the user to communicate with 
the Computer Center staff for questions, suggestions, and complaints. When he 
completes his message, he terminates it by pressing the CTRL-Z (the CTRL and Z 
keys together) keys, and the user's terminal is returned to the monitor mode. 
If the message is long and pre-stored as a disk file, a user can load his stored 
message file by using an indirect file specification when message is requested 
in the program. An indirect file specification has a prefix of "(3" before the 
standard file specification. 
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Example : 

^ MEMO 

Your [p,pn] , TTY number, and the current date and time are automatically 
recorded with your message. A written response will be mailed to you 
within one week. Please provide a campus address, if possible. 

Your Name: T. W. SZE 
Phone: 5418 
Address: Z39 BEH 



Please type your message or indirect file spec. 

Message goes in here. , . . 
"Z 
EXIT 



End it with a control Z. 



(3) To Send or Receive "Mail" 



The SEND command transmits message fron 



one active terminal to another 
not he is currently on-line. 
University of Pittsburgh. 



. Message can be sent to another user , whether or 
by a "post office" system developed at the 



In order to join this "post" system, a user must make some initial 
preparations. When he first joins the system, he should issue a monitor command 
of "R MAIL" which will respond, naturally, with a message of "NO MAIL POSTED." 
It will then go into the mail-sending sequence, which can be shorted out by a 
CTRL-Z or CTRL-C key. However, in doing so, a file is automatically prepared in 
the user's disk area with a file name of MAIL.BAG<144>. This is the user's mail 
box, without which he can send but cannot receive mail. 

In this post system, the address of the receiver is his PHsl. If the mail 
is directed to the Computer Center staff, the address may be one of the 
following, depending on the nature of the communication: 



ACCOUNTING 


CSMP 


MACRO 


REPAIR 


SPSS 


ALGOL 


CTLYST 


MAIL 


RUNOFF 


SSCRI 


BASIC 


FORTRAN 


OPERATOR 


SIMULA 


SYSTEM 


BATCH 


FIO 


PIL 


SITGO 


TAPE 


COPY 


HELPER 


PPN 


SNOBOL 


TAPELIBRARIAN 


CREF 


LINK 


PROG 


SOLO 


TECHNICIAN 


COBOL 


LISP 


PROGLIBRARIAN 


SORT 


TECO 


COMPIL 


LOADER 


PROG L 


SOS 


UPDATE 



To send a message through the post system, use the monitor command: 



R POST 



The procedure of sending mail is illustrated by the example below: The text in 
italics is typed by the user: 

.R POST 

TO: 114713,320571 
SUBJ: HOmWRK DUE DATE 



TYPE IN MESSAGE. END WITH Z 

WHEN IT ASSIGNMENT NO. 5 DUE? \Z 
TO: +Z 
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The CTRL-Z closes the "letter" v\*iich is then stored in the receiver ' s 
file MAIL. BAG along with the information of sender's PPN, name, time of the day 
and the date. When one letter is completed by the CTRL-Z signal, the system 
responds with another "TO:" for the next letter, and the above process may be 
repeated for another letter. If there is no further letter to post, the user 
returns to the monitor mode by again pressing the CTRL-Z key. 

To read these letters, issue a monitor command: 

R MAIL 

All new messages since the previous reading of mail will then be printed on the 
user's terminal. At the completion of the printout, the messages just read are 
emptied into another file MAIL. OLD and a new blank file MAIL. BAG is created to 
accept future mail. In the meantime, the system switches to the beginning of 
the POST sequence by typing out "TO:". The user at this point may send message 
out should he wish to answer his mail at that time. 

The following is an illustration of how the person in the previous 
example might read and answer his mail : 

.i? miL 

[122345,765432] *DOE 14:28. JULY 27, 1980 

SUBJ: HOMEWORK DUE DATE 

WHEN IS ASSIGNMENT NO. 5 DUE? 

TO: 122345,765432 
SUBJ: HOMEWORK DUE DATE 

TYPE IN MESSAGE. END WITH 'Z 

MY DEAR BOY, IT WAS DUE TWO WEEKS AGO. iZ 

TO: ^Z 

If a user just wants to know if there is any new mail waiting since he 
checked it last time, he can issue this command: 



R MAILX 



The system will respond with a message of "MAIL WAITING ...", or just another 
prompt period, to signify whether or not there is mail waiting. 

(4) The Computer Center also "posts" bulletins of general interest. 
These are stored in the physical device "SYS:" as news files. The files are 
updated frequently to announce the changes, bugs, new developments in some 
particular processor. As a result, new items may be added, and some old and 
non-newsworthy items may disappear. The user may check the directory of the 
news file by a monitor command of "DIRECTORY SYS:*. NWS" and the system will 
respond by listing a complete list of news files available in the device SYS:. 
A copy of the bulletin may be obtained on the user's terminal by issuing a 
monitor command "TYPE SYS:xxxxxx.NWS" , or on the printer by issuing a command 
"PRINT SYS:xxxxxx.NWS" , where "xxxxxx" is the name of the file chosen. 

The System also maintains a set of files vdiich contains helpful 
information on various programs and commands. They are called HELP-files and 
are generally quite voluminous. One can find out what HELP-files (with 
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extension of HLP) are available by a command .of "DIRECTORY SYS:*.HLP", and a 
complete directory of HELP-files will be typed on the user's terminal. The user 
can then use "TYPE" or "PRINT" command to get a copy of the selected file. 



8.6 Status Report Commands 

The DEC System-10 keeps a wealth of data and records on its own operation 
and those of the users, some of these information may be useful to a user and 
can be made available by certain commands. These are listed below: 





Short 




Command 


Form 


Explanation and Examples 


PJOB 


PJ 


To print out user's job number. 
Example: .PJ 
16 


NJOB 


N 


To print out total number of active jobs on the system 






Example : .N 
24 


DAYTIME 


DA 


To type out the date and time in the format of: 
day-month-year hour :minute : second 






Example: .DA 

16^UL-80 16:56:59 


TIME 


TI 


To type out the following items: 

1. Total running time since the last TIME command. 

2. Total running time and connect time of the job. 

3. Total core usage in kilo-core-second 
Example: .TI 

0,38 
0.38 


CURRENT 


C 


kilo-core-second=3 , Minutes connected=3 


To type user's current usage status 






Example: .C 

Usage ratio =0,45 






CPU allowance in this connect hour = :02:00 






Current hour ends in 24 min 




Tt 


CPU time remaining = :01:55 


USESTAT 


To type out six items of user usage information: 






1. incremental day time in seconds 






2. incremental run time in seconds 






3. incremental read and write disk in blocks 






4. name of program running 






5. core size used 






6. program counter address 






Example : 






DAY::13:43RUN:6.30RD:66WR:7 HELP 2P+1P"C SW PC: 400672 






Note: "incremental" means the differential since the last 






USESTAT command. 
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HELP 



HE 



SYSTAT 



SYS 



R QUOI£T 



RESOURCES 



WHERE 



RES 



There are three HELP formats: 



1, HELP 



2. HELP dev:* 



3. HELP NAME 



Outputs the instruction for the 
receiving information. 
Output both names of features that 
have available on-line documentation 
(HELP-files) and names of monitor 
commands. If dev: is DSK: , it can 
be omitted from the command format. 
Same as TYPE SYS: NAME. HLP 



The command format is: SYSTAT/switch 

If the switch is not given, the entire system status will 
be typed out on the terminal. If switch is given 
and included in the command, a subset of system status 
report will be typed according to the following codes: 



/Switch 

/B 

/J 

/R 

/S 

A 

/. 

/n 

/#n 
/[m,n] 
/[m,*] 
/[*,n] 



Subset Information to Be Printed 

Busy device status 

Job status 

Remote station status 

Short job-status report 

Read the explanation of recent crash 

User's job status 

Status of job n 

Status of TTYn 

Status of jobs submitted 

by specified PPNs. 

"*" is wild card- 



To print out the status of user's disk usage and quota. 
See Section 1.10 of Chapter 1 for details. 



To print out the names of all available devices, except 
TTY's and PTY's, unless they are down, busy, non-existent. 



The complete format is: WHERE dev: 

It outputs the station number at which the spscified 

device is located. 
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SOURCE FILE PREPARATION 



8.7 Source File Preparation Commands 

Although there are many editing processors available on DEC System-lO, 
only one editor is presented in this book. It is called the UPDATE (University 
of Pittsburgh DAta and Text Editor) . The monitor command calling for this 
processor is: 



UPDATE NAME. EXT 



If NAME. EXT is a non-existent file, the command opens a new blank file on disk 
for creation, later to be named as NAME. EXT. If the file NAME. EXT already 
exists, this command opens that file for editing with the UPDATE editor. 
Commands and procedures of using the editor UPDATE are presented in Chapter 2, 

There are other editors available on the System, such as the TECO. The 
monitor command to call for the TECO editor is "R TECO". 
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8.8 Facility Allocation by Monitor 

The monitor allocates peripheral devices, file structure storage, and 
core memory to users on request and protects these allocated facilities from 
interference by other users. It maintains a pool of peripheral devices divided 
into two groups: unrestricted devices and restricted devices . Among the 
unrestricted devices are line printers, paper tape reader and punch, and disk. 
They are allocated on request at a v^en-available basis, and request for their 
allocation is really a reservation for their use. Actual usage of these devices 
is shared with other users on a queuing basis. On the other hand, restricted 
devices, such as magtape drives, will allow exclusive usage of the device when 
allocated. The exclusive usage continues until the device is returned to the 
pool. Therefore, a user must possess certain qualifications in order to be 
allocated with restricted devices. For example, he must have possession of a 
registered tape in order to use the tape drive. 

Many of these peripheral devices are non-sharable at the scime time. When 
a non-sharable device is assigned to a job, it is taken out of the monitor's 
pool and it will not be available to other users. Since non-sharable devices 
are scarce resources, the user should return them to the pool as soon as he 
completes his tasks with these devices. At any time, a user may find out what 
is available in the pool by a monitor command of: 



RESOURCES 



and the System will respond with the list of devices available by their physical 
device names. See example below: 

.RESOURCES 
D200,USRA,USRB,PLT010,MTA010,011,015,DrA010,011,012,013 

Therefore, for all users in the general community, two types of commands 
are used for allocation of facilities: one for the unrestricted devices, and 
another for the restricted devices. In the latter, operator intervention is 
built into the command process to check on certain user qualifications. They 
are now discussed in some detail. 



8.9 Allocation of Unrestricted Devices 

An unrestricted device may be allocated upon a user's monitor command of: 



ASSIGN DEV: LOGDEV: 



where LEV: = physical device name, and 

IJDGDEV: = logical device name, optional in the format. 

The physical and the logical names of devices have been defined and discussed in 
Section 8.1. l£)gical names of different devices must be different from each 
other, but a logical name may duplicate a physical name (not necessarily 
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representing the same device) - 
precedence over a physical name, 
issued : 



In the latter case, the logical name will take 
For example, when the following command is 



ASSIOSI CDP: LPT: 



the name "LPT:" now serves as both the logical name of the card punch and the 
physical name of the line printer. Since logical name takes precedence, system 
output will now be re-channeled into the card punch file preparation, even 
though the program executed after the ASSIOSI command was originally designed for 
line printer output. Such an assignment command then becomes a convenient way 
of re-designating input/output devices of a program without having to modify the 
program itself. An alternate way is to intercept the output file before it is 
sent to the output device, rename it with an appropriate extension (e.g., CDP 
extension for card punch output) , and then apply appropriate monitor command to 
produce the output. See more details on output command in Section 8.14, 

Since the System already has assigned certain unrestricted devices as the 
standard input/output devices in the time-sharing mode, it is not necessary for 
a user to request their allocation. Therefore, the ASSIGN command is generally 
used for twD purposes only: (1) to request a non-standard input/output device, 
or (2) to rename a device by a logical name which is referred to in an existing 
program. 



A very useful variation to FORTRAN users 
following format: 



is the ASSIGN command of the 



ASSIGN DEV: nn 



v\^ere nn = device unit number in the READ/WRITE statements of a FORTRAN program. 
If a stored disk file is assigned this way, then DEV: is DSK: , and the filename 
must be FORnn.DAT, where "nn" ranges from 00 to a number depending on system 
installation. In FORTRAN-10, the upper range is 63, 

Example ; Suppose a FORTRAN program has been prepared in v^iich the 
READ/WRITE statements are of the form: READ(5,f) list and WRITE(6,f)list, This 
program is now stored on the disk as SAMPLE. FOR. The following different cases 
show how a user can run the program and pre-select certain devices as input or 
output media: 



Remarks 



.EXECUTE SAI4PLE.F0R 



.ASSIGN LPT: 6 
.EXECUTE SAMPLE. FOR 
.PRINT *.LPT 

.ASSIGN DSK: 6 
.ASSIGN DSK: S 
.EXECUTE SAMPLE. FOR 



Input/output devices will be standard devices, 
namely, the remote terminal of the user. 

Obtain the output from the printer. Input is still 
via the user's terminal. 



During execution, 
file FOR05.DAT, 
will be stored in 



input data will be from a stored 
and after the execution, output 
a new file named FOR06.DAT. 



In the batch mode, the selection of non-standard devices is much more 
limited. Aside frcati the standard devices, selection of unrestricted devices is 
essentially limited to the "DSK:", and the procedure outlined in Table 8,2 for 
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"DSK:" will also apply for the batch mode- 



Etevice 
Name 


Time-Sharing System Assignments 


Unit 5 


Unit 6 


TTY: 
CDR: 


Standard assignment 


Standard assignment 


Procedure: 

1. Prestore cards as a file, 
named as XXX, CDR, where 
XXX=1 to 3-character name. 

2. Issue monitor commands: 
ASSIGN CDR: 5 

SET CDR XXX 

3. Execute FORTRAN program. 


Not applicable 


LPT: 
D6K: 


Not applicable 


Procedure: 

1. Issue a monitor command: 

ASSIGN LPT: 6 

2. Execute FORTRAN program. 

3. Output will be stored as a 
disk file Q????,LPT, where 
"????" are four characters 
arbitrarily assigned by the 
System . 

4. Use either of the following 
monitor commands to get the 
printer output: 

PRINT *.LPr 
QUEUE *.LPT 


Procedures: 

1. Prepare ahead a data 
input file, which must 
be named as FOR05.DAT 

2. Issue a command: 

ASSIGN DSK: 5 

3. Execute Fortran program. 


Procedures: 

1. Issue a monitor command: 

ASSIGN DSK: 6 

2. Execute FORTRAl'J program. 
The output will be stored on 
disk as FOR06.DAT. If there 
was a previous FOR06.DAT on 
disk, the new file will re- 
place it without warning. 
BEWARE! 



Table 8.2 



Assignment of Unrestricted Devices for FORTRAN 
Program Execution in the Time-Sharing Mode 
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A device, once ASSIQ^ed, will remain assigned, until the user 
command of DEASSIOSI to release it. The format of the DEASSIGN is: 



or. 



DEASSIGN DEV: 
DEASSIGN 



where DEV: =either the logical or physical device name of the specified device. 
If it is not specified, all devices assigned to the user's job, except the 
remote terminal, will be released. 



8.10 Allocation of Restricted Devices 

A restricted system device is one where an operator intervention during 
its usage is necessary in order to determine v^ether the requesting user is 
eligible for the device. There are two types of restricted devices that may be 
of interest to the readers of this book: the DECtape drives and the magtape 
drives. The latter includes both 7-track and 9-track drives. 

In general, when a user uses tapes in his processing, he goes through the 
following steps: 



Tape Processing Steps 



(1) Reserve the necessary number of tape drives. 

(2) Ask the operator to mount physically a 

designated reel of tape on a reserved tape 
drive. 



Itonitor Commands* 
DRIVES 
MOUNT 



(3) After the completion of tape processing of the DISMOUNT 

reel , ask the operator to remove the reel 
from the tape drive. User will still retain 
the usage of the tape drive at this point. 

(4) If the user has further tape processing to do, MOUNT & DISMOUNT 

he will repeat step 2 and step 3. cycles 

(5) When the tape tasks are finished, the user will 

release the reservation of tape drives and 
return them to the system pool. 

For more details of tape processing and handling, the readers are 
referred to Chapter 10. We will now discuss the monitor commands required to 
perform these steps. 



*These commands are enhancement of monitor of the standard DEC -10 software, and 
were developed by the staff of the Pitt Computer Center. DRIVES and the 
UNDRIVES commands are new, and MOUNT command contains additional access 
restriction enforcement not available in the original DEC version. 
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(1) DRIVES and U NDRIVES Commands 

To request reservation of tape drives, a PITT-developed monitor command 
should be issued vAiich has a format of: 



DRIVES DEV(n) , DEV(n),, 



vrfnere DEV = Dhvsical name (without colon) of a restricted device, which is 

any of the following: 

CTA = DECtape drive 

MT7 = 7-track magtape drive 

Mrs = 9-track magtape drive, 800 or 1600 bpi only 

iyiT9 = 9-track magtape drive, 1600 or 6250 bpi only 

and (n) = number of drives requested. If n=l, " (n) " may be omitted from 

the command. 

To return the devices to the system pool, the command UMDRIVES has a 
similar format: 



UNDRIVES DEV(n) , DEV(n) , ... 



To avoid accidental release of tape drives, the command UNDRIVES DEV(n) 
will be ignored if the said drives still have tapes mounted on them, and if no 
DISMOUNT commands have been issued yet. 



The commands DRIVES and UNDRIVES can be issued without any argument, 
they will have somewhat different meanings: 



and 



DRIVES and UNDRIVES Commands 
With No Argument 

DRIVES 



UNDRIVES 



Function 



To report the status of the user's current 
allocation of tape drives. 

To release all tape drives regardless of whether 
there are tapes still mounted on them or not. 
Such a command will force a DISMOUNT action on 
all tapes, and return all drives to the system 
pool. This is also a standard procedure in 
the KJOB to allow a quick exit from the 
System. 



The following points will also be helpful in using the DRIVES and 
UNDRIVES commands: 



A. The DRIVES command is not accumulative. If two or more DRIVES DEV 
commands are given in succession, only the last one will be in force, because 
any DRIVES DEV command always cancels out the previous one. Therefore, the 
drives needed for one tape task should always be requested in one single DRIVES 
command, and not piecemeal in several commands. Note the difference between the 
two following cases: 
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Case 1: .DRIVES DTA(2),MT9 

MTA013,Ea?A010,DrA011 ALLOCATED 

Case 2: .DRIVES DTA(S) 

DTA010,OTA011 ALLOCATED 

.DRIVES MT9 

MTA013 ALLOCATED 

. DRIVES 

MTA013 ALLOCATED 

In case 2, the second DRIVES command cancels out the first one. At the 
end, only the second request by itself is honored. 

B. The System will not make a partial allocation to a DRIVES request. 
If there is not a sufficient number of requested devices currently free in the 
pool, the System will respond with a message as shown below: 

.DRIVES DTA, MT9(2) 

DRIVES NOT AVAILABLE NOW, WAITING (''C^C TO EXIT) 

At this point, the user has two options: One is to wait. Then he is not able 
to do anything at the terminal. The other is to cancel the request by pressing 
the CTRL-C key twice or more, and the user can submit another request sometime 
later. Naturally, such options are not available to BATCH users because they 
will not have the opportunity of such interactions, 

C. Unlike the DRIVES DEV command, the UNDRIVES DEV is accumulative. 
For example, suppose a user has acquired 4 DECtape drives by a previous DRIVES 
command. If he issues a command UNDRIVES DTA, he will be left with 3 drives if 
the release request is successful . If he then issues another command UNDRIVES 
DTA(2) , he will be left with just one drive. 

D. Whether a release command UNDRIVE DEV will be successfully executed 
depends on whether there are still tapes mounted on the referred drives. Let us 
denote those devices being "idle" if there are no tapes mounted on them at the 
time. The result of the command UNDRIVES DEV(n) depends on the number of idle 
devices at the time, because with that command only the idle devices are 
released . 



If n = number of idle specified device, all such devices are 



released - 



b. if n<number of idle specified device, the UNDRIVES command will 
arbitrarily release n idle devices, but the user will not know which ones have 
been released unless he issues a new DRIVES command with no argument to inquire 
about the new allocation status. 

c. If n>nuraber of idle specified device, the UNDRIVES command will 
release all idle devices. Again no message is returned, and the user must use 
the DRIVES command to find out about the new allocation status. 



(2) MOUNT and DISMOUNT Commands 

By a MOUNT command, a user requests the operator to mount a tape at a 
designated tape drive. It has a form of: 



MOUNT ra;V:LOGDEV/switches 
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where OEV: = the physical name of the tape drive, and 

LDGDEV = the logical name assigned by the user 



The following are several more frequently used switches: 
Switches Explanations 



/VID:Xnnnnnn Visual identification. At the University of Pittsburgh, tape 

registry numbers are used as visual ID. Tlriey are decimal 
numbers (six digits maximum) with A-prefix for DECtapes and 
B-prefix for magtapes, for examples: A1234 and B313. This 
is the only way a user can specify vrfnich tape he wants. 

/WENABIE For "Write-enable" . The tape will be available for both read 

and write operations. Its short form is "/WE". 

/WliXK For "Write-lock" . The tape will be for read-purpose only. Its 

short form is "WL" . 



Mounting of tape is a manual procedure, and the operator has only the 
visual ID to tell vAiether he has the right tape. Since human errors do occur, 
there is always a chance of an operator mounting a wrong tape, and the 
subsequent read-write operation will cause irreversible damages to the 
information storage. Each computer installation generally designs additional 
security measures to reduce the chance. At the University of Pittsburgh, 
additional security of tape access is implemented through a standardized tape 
registry, tape labeling and a modification of the MOUNT' command. 

The visual ID of each tape is standardized as a tape registry number, in 
the form of Xnnnnnn, where "X" is either "A" (for DECtajses) or "B" (for 
magtapes) , and "nnnnnn" is a decimal number of maximum six-digits. During a 
"labeling" process, the numerical part of registry is recorded on the first file 
of a DECtape or a 9-track magtape. In executing the MOUNT command (PITT 
modified version) , not only the operator will search for the right tape by the 
VID identification, but also the first file will be read by the System, Thus 
the number read frcm the first file may be compared with a WD given by the 
user. If the two numbers do not ^ree, the tape job is aborted. Details of how 
a tape may be "labeled" are given in Chapter lu. 

With these modifications, the MOUNT command used at the PITT facility has 
the following additional switches: 

/SL Standard label. This switch will instruct the System to check the 

label against the VID given. Actually this is a standard operation, 
even if no switch is specified. In other words, this is the default 
switch. 

/NL No label. This switch informs the System that the tape is not 

labeled, for example, as the tape is brought from another 
institution. 

Tape users should be aware that this security system is not applicable to 
7-track magtape because of difference in recording techniques. When a switch 
relating to label is given in using a 7-track tape drive, the Icibel switch will 
simply be ignored. 
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To dismount a tape from the drive, a user may issue a command of: 



DISMOUNT dev: 



where dev: = previously MOUNTed device name, either physical or logical. 
After a DISMOUNT command is issued, the tape mounted will be removed by the 
operator and returned to its storage. The user, however, retains the use of the 
tape drive, and he may mount another tape for further processing. 



Example ; 



The following shows a typical case of tape processing: 



Comments 



.RESOURCES To check on availability of devices 

D200,PLT010,MTA010,013,015,DTA010,011,012,013 



.DRIVES DTA(2) 
DrA010,DrA011 ALLOCATED 



To request2 DTAs. DTAOIO and DTAOll are 
available and assigned. 



.MOUNT DTA:TlA/E/VID:A1004 To mount tape A1004 on one tape drive, and 

Request queued name it as Tl. 

Waiting... "C~C to exit Either wait or issue 2 "C to get back 

to the monitor 



. MOUNT DTA : t2/WE/VID:Al 005 
Request queued 
Waiting... "C"C to exit 



Tb mount another tape, and name it as T2. 



[MNT - DTAOIO (Tl) mounted] 
[MNT - DTAOll (T2) mounted] 

(Tape Processing 
done here) 

.DISMOUNT Tl 
Tl Dismounted 

.DISMOUNT T2 
T2 Dismounted 



Mounting Tl message 
Mounting T2 message 



Dismount Tl. Colon is optional. 
Returned message. 

Dismount T2. 



(More MOUNT and DISMOUNT sequence) 
.UNDRIVES To return the DTAs to the System. 
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8.11 Remote Terminal Control Commands 



A remote terminal is the most important peripheral device to a 
time-sharing user. Its principal characteristics were describecl in Chapter 1, 
When a terminal is connected to the System, a number of its operating conditions 
are initialized automatically, such as the right margin, the tab j»sitions, etc. 
These conditions, however, may not always work well with certain terminals, 
because there are a wide varieties of terminals the System can support. Even on 
the same terminal , one user ' s requirements may not be the same as those of 
another. 



The SET TTY (short form TTY) command allows a user to declare 
of his terminal, and it has the form of: 



properties 



TTY keyword 



SET TTY keyword 



where keyword = either of the complementary pair of keywords for ITY properties. 
Table 8.3 shows a list of keywords in the TTY command. 

Example ; .TTY WIDTH 132 

Function; Set the right margin of the remote terminal at column 132. 



Example : -TTY FILL 2 

Function ; Some terminals suffer from timing problems at 300 bauds 
speed. The symptons are missing characters or overprints 
at the beginning of each line. The remedy is to delay the 
transmission of information after each long carriage or 
paper movement, such as carriage return or form feed, by 
inserting dummy or "filler" non-print characters. The 
fillers do nothing except to take up time. The idea is to 
allow the print head enough time to get into position when 
the transmission of information is resumed. The number of 
filler characters falls into four classes; Class 0, 1, 2, 
and 3 with the higher classes having more filler 
characters. Reference 1 gives a detailecl table on the 
exact number of fillers in each class for every carriage or 
paper movement action. Since inserting fillers will slow 
down the print throughput, the filler class should be 
chosen just high enough to overcome the timing problem, if 
one exists. This can be easily determined by experimenting 
with each class. 
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TTY 
Keyword 


System 
Default 


Explanations 


ALTMODE 
NO ALTMODE 


X 


Converts ALTMODE codes of octal 1''5 & l-S to ASCII 

code of 033. 
No conversion 


BLANKS 
NO BLANKS 


X 


Allows blank line printout. 

Suppress blank lines. Useful in CRT terminal to 
increase output that fits on the screen. 


CRLF 
NO CRLF 

ECHO 
NO ECHO 


X 


When a line reaches the right margin, the carriage 
will automatically return and advance one line. 

Suppress carriage return even when the right margin 
has been reached . 


X 


Terminal will echo print the input characters. 
Suppress the echo print. 


FILL n 
NO FILL 


n=0 
X 
X 


Insert filler characters after each carriage-return 
or tabbing operation to correct timing problems. 
Filler insertion is of class n. See more explanation 
in the example below. 

Same as n=0 


GAG 
NO GAG 


Message transmitted by SEND command cannot be 

received at this terminal. 
Opposite of GAG. 


LC 
NO DC 


X 


Opposite of UC 

Transmits all lower cases as upper cases. 


PAO; 
NO PAGE 


X 
X 


After this command is issued, the user will have the 
ability to temporarily suspend system typeout without 
losing it. The key CTRL-S suspends the typeout, and 
CTRL-Q restores it. 

Disables the CTRL-S and CTRL-Q keys. 


TAB 
NO TAB 


System sets up standard tab settings. Actual settings 

vary with each installation. 
The monitor simulates TAB output from program by 

sending the necessary number of SPACES. 


UC 
NO UC 


X 


Same as NO DC 
Same as DC 


WIDTH n 


■^2 


The carriage width (the point at v^*lich a free carriage 
return is inserted) is set to n. "n" ranges frcm 
1-^ to 200. 


SYSTEM A 
SYSTEM B 


Applied before LOGIN command to select one of the 
two systems. 



Table 8.3 TTY Command Keywords 
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Example ; 
Function: 



.TTY GAG 

After this conunand is given, the user's terminal cannot 
print out messages sent by other users' EJEND commands. 
This is useful when the user has an important output to 
prepare and he does not want any printed messages to spoil 
his output. 



Example ; .TTY PAGE 

Function ; This is particularly useful in a CRT terminal application 
to allow temporary suspension of output so that the user 
can read it before it rolls off and disappears from the 
screen. It is also useful in conventional terminal to 
create a pause during the typeout to allow the user to make 
some manual adjustment of the terminal, for example, to 
advance the paper to the next page. 



Example ; .TTY PAGE 
.TTY GAG 
.TTY WIDTH 132 

Function ; Unless one keyword 
previously given 
accumulative effect. 



cancels out 
keyword , the 



the effect of another 
TTY commands have an 



Example ; .TTY LC 

Function ; For terminals having lower-case capabilities, this command 
will set the terminal at the lower-case mode, and the 
terminal acts like a conventional typewriter. The upper 
case character may be generated only if the shift key is 
depressed at the same time. 
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PROGRAM EXECUTION AND CONTROL 

8.12 Execution and Related Commands 

To execute a source program stored on disk, such as a program written in 
FORTEiAN, the program is first compiled and an object program is generated and 
stored on disk. This object program, called a relocatable binary file, or a REL 
file, is then loaded into the user's core along with any subprograms of the 
System called by the program. Execution will then begin at an address of the 
core determined by the compiler and the loader. Therefore, the execution 
process goes through three stages: the compiling, the loading, and then the 
execution. Similarly, the loading goes through two stages: the compiling and 
the loading. Of course, the user may also request just the compiling to be 
done. The monitor commands to perform these functions are listed next. The 
"list" in the command format may be either a single file specification or a list 
of files separated by commas. 

Command Format Explanations 

COMPILE list To compile the source program (s) and store the REL 
file(s) on disk. No execution. 

DDAD list To compile if necessary, and then to load the REL files 
and the needed System subprograms and user-supplied 
subprograms in user's core. No execution. 

EXECUTE list To compile the source program (s) if necessary; store 
the REL file(s); load them along with all needed 
subprograms into the core; then execute. 

START To begin execution after a REL file has been LOADed. A 

LOAD command followed by a START command is equivalent 
to an EXECUTE command. 

When a file is created for storage on disk, the directory carries the 
information of its creation date and time. When a command COMPILE, LOAD or 
EXECUTE is issued, the System will first search in the user's disk area to see 
if there is a REL file bearing the same name. If there is such a REL file on 
disk and if its creation date and time is newer than that of the source program, 
the compiling is simply bypassed because the REL file is still valid. The 
purpose is to avoid unnecessary compiling v^ich can be quite costly, 

A number of command switches are available, and a selected subset is 
listed below. As seen in Table 8.4, these switches are common for the commands 
listed except the LIBRARY switch. 
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Switch 


Command 


Function 


COMP 


L£)AD 


EXEC 


/COMPILE 


X 


X 


X 


To force a compiling of the file even if a REL 
file already exists with a newer date and time 
than that of the source file. 


/CREF 


X 


X 


X 

X 

X 
X 

X 


To produce a cross-reference listingi file on the 
disk for each compiled file for later processing 
by the CREF program. 


/FIO 

/F40 
/LIBRARY 

/DEBUG: BOUND. 


X 
X 

3 X 


X 

X 
X 

X 


To use the FORTRAN-IO compiler. This is a default 
switch at Pitt. 


To use the F40 compiler. 

To load the files in library search mode. See 
more explanations in the examples. 


To report if subscripts of array are out of bounds 
as defined for the array in the DIMENSION 
statement . 



Table 8,4 Selected Switches for the EXECUTE Command 



Example ; Suppose a REL file has been prepared that contains fifty 
subprograms needed in a course. However, at any single application, only a few 
are really needed. Suppose this package is now named as COMMON. REL. At each 
application, a user will prepare a main program, in which he calls certain 
subprograms frcxn the package. In executing his program the user should issue 
either of these two commands: 

.EXECUTE MAIN. FOR, COMMON. REL 

or, .EXECUTE miN. FOR, COMMON. REL/ LIBRARY 

With the former command, the entire COMMON, REL is loaded into the user's 
core — all fifty routines — even though only one or two may be needed by the main 
program. In the latter form, only those routines needed by the main program are 
loaded. When a library package is large, the use of the LIBRARY switch will 
spell the difference of \«*iether there is enough core to run the user's job. 

When a program has been thoroughly debugged, and if the program will be 
run many times or shared by many people, the following is a more efficient way 
of executing it. 

The program and its subprograms will be compiled and loaded in the usual 
way by a IDAD command. After the LOAD operation, the "core image" may be saved 
as a file bearing an extension of EXE by issuing the command: 



SAVE NAME 



and the save file will have a name of NAI^E. EXE. 
program may be done by issuing the command: 



Any subsequent execution of the 
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RUN NAME[m,n] 



where [m,n] is the PIW of the file owner, and may be omitted if the user has the 
file in his own disk area. 

The main advantage of executing a program this way is to eliminate all 
preliminaries of compiling and loading. Besides, only one file name after the 
RUN command need be specified. 

Example ; Observe the following sequence with comments given: 

Comments 

.LOAD MAIN. FOR, SUBl.FOR, SUB2.F0R, SUEZ. FOR, SUB4.F0R, COMMON. RE L/ LIBRARY 
(Compiling of each FORTRAN program takes place here.) 
(Loading of all REL files takes place next.) 

.SAVE MESS Save the core image as MESS. EXE 

Job Saved 

.START Execute the program 

(Execution follows) 

Subsequent execution of the same program: 

.RUN mss 



The same idea is extended to running the System program by using the R 
command of the form: 



MESS 



vihere NAME is an EXE file of the System. Thus, the commands "R UPDATE", "R 
PIL" , etc. are among the applications of the R-command. 

Programs submitted for batch job execution may be submitted through the 
time-sharing terminal by a command developed at Pitt: 



OPRSTK NAME. EXT 



where NAME. EXT is the name of the control file. See Chapter 9 for details. 
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8.13 File Management Command s 

In the general specification of a file: 

DEV: NAME. EXT [m,n] <xyz> 

all components in the form except "NAME" part may be omitted. When a certain 
part is omitted, it has the following default interpretation: 

Omitting Means: 



dev: The device is DSK: 

.EXT The file has a null extension. 

[m,n] The file belongs to the user. 

<xyz> A file is uniquely specified without 

a protection code designation. 
However, if a file is created 
without specifying a protection 
code, a default code of 057 is given 
to it. 

In addition, the character "*" and "?" serve as the "wild cards" in the format 
of file specifications, as was discussed in Section 8.1. 

Various file management commands will be discussed next. 

(1) DIRECT (DIR) Command This command will output a listing in file 
specifications, sizes Tn blocks, protection codes, structure names, creation 
dates, etc. The complete form of the command is: 



DIRECT OUTPUT = input list/switahes 



where "OOTPUT=" (including the equal sign) is the output device andl file name, 
and "input list" is a single file or a string of files. If the TTY is the 
output device, the part "OUTPLrr=" may be omitted. If an output file name is 
given, the default device is DSK: If an output file is not given and one is 
needed, the default file name is HHMMSS.DIR where HHMMSS is the time of the day 
when the DIRECTORY command is given. Several examples are shown below: 

DIRECT Print out a directory of all stored files. 

DIRECT NAm. * Directory of all files with the name NAME. 

DIE *.EXT Directory of all files with the extension EXT, 

.DIR FLl.EXljFL2.EX2,... Directory of individual files. 
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A typical printout of the directory is shown below: 



.Name 

-Extension 

File length in blocks 
Protection code 
Creation date 




structure name 
r's PPN- 



SRB: [115103,320571] 



TEST D^T 

SAMPLE FOR 

SAMPLE REL 

TEST BAK 



TOTAL OF 180 BLOCKS IN 4 FILES ON USRB: [115103,320571] 



The last line is a surrmary line of the files in the DIRECTORY command. Switches 
provide a user a wide selection of file categories and printout formats. Some 
of the switches are included below: 



Switch 


Argument 


Directory Printed 


/BEFORE: 
/SINCE: 


date: time 
date: time 


Files created during the specified time. 


/DETAIL 




To print out all details of a file lookup. 


/FAST 

/NORMAL 

/SLOW 

/HELP 




To print a short form of directory. 

To print a normal form. 

To print out a full listing. 


1 


To print out all available switches. 


/LIST 




To list the directory on the line printer. 


/SUMMARY 
/WIDTH: 

/WORDS 


N 


To print out just the summary line. 

To output several entries on a single line to make output 
N-column wide. Default N is 64. 




To print out the size of files in words instead of in 
blocks. 



Example ; 
Function: 



.DIRECT LI ST. DIE = ^ .DIE 

Store the directory of all FORTRAN files as LIST.DIR. 



Example : .DIRECT =^. FOR/FAST/WIDTH 

Function : Print out the directory of all FORTRAN files on user's 

terminal with a format of names and extensions only, four 

entries per line. 



Example : Suppose a DECtape has been mounted by a MOUNT command, and 
it has been named with a logical name of Tl. The following 
command will list all FORTRAN files stored on that tape: 

DIRECT T1:*.F0R 



352 CEIAPTER 8 OPERATING SYSTEM 

(2) DELETE (DEL) Conmand This command will delete one or more files 
from the disk or the DECtape, and remove their entries from the directory. It 
has a similar format as that of the DIRECT command, namely: 



DELETE I'ist 



where "list" = a single file or a group of files. As in the case of DIRECT 
command, the following are some of the most frequently used forms: 

DELETE FLl.EXl, FL2.EX2,.., 
DELETE NAME.* 
DELETE *.EXT 
DELETE *.* 



After the deletion of files is completed, computer will respond with a report of 
the file names, extensions, and total disk storage blocks recovered. 

Example : -DEL *.TMP, *.BAK 

Function : Delete all temporary and backup files created after a 
successful editing session using UPDATE editor, or after 
these files have served their usefulness. 



(3) RENAME (REN) Command This command will change one or more items 
of the file specifications on the disk or DECtape. The items that may be 
changed by this command are filename, extension, protection code, or 
combinations thereof. The form of the command is: 



RENAME newl=oldl, new2=old2, ... 

When this command is executed, the file specif icaiton of "oldl" is changed to 
"newl", "old2" to "new2", etc. 

The old and the new file specifications must bear or imply a one-to-one 
correspondence, especially when there is a "wild card" representation. For 
example, the command ".RENAME NEW.FOR=*.FOR" would be an incorrect command. 

Example : .RENAfm ISSAC.FOR = NEWTON. FOR 

Function : To rename a file from the name NEWTON. FOR to ISSAC.FOR, and 
keep the same protection code. 

Example : .RENAhiE *.F0R<157> = *.FOR 

Function : to give all FORTRAN files a protection code of 157. If a 
file already has a protection code of 157, the command is 
still executed despite being superfluous. 

Example ; .REN Tl.-'^.FOR = T1:'^.F4 

Function : To rename all extensions of F4 to FOR for files stored on 
DECtape, previously MOUNTed and given a logical name of Tl. 
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(4) PROTECT (PROT) Command This command will alter the protection codes 
of specified files. Its format is: 



PROTECT filel<xyB>, fite2<xyz>. 



where "xyz" is the new protection code assigned. This command is equivalent to 
"RENAME filel<xYZ>=filel,fiel2<xyz>=file2,. .." In fact they are executed by the 
same program. 

(5) PRESERVE (PRE) Command This command will rename the file to change 
its protection code from <xyz> to either <157> or to <lyz> depending on the 
local installation practice. The purpose of "preserving" a file is to raise its 
protection level relative to others in the disk. In a batch run, if the disk 
storage is over the logout quota (See Section 1.10) at the end of a batch job, 
the System will kill off excess files ruthlessly according to an established 
order of priority as given in Section 8.4. However, preserving a file merely 
makes it less vulnerable — it does not make it untouchable. If all files are 
PRESERVEd in the disk, the idea of relative protection level is lost, and one 
file is just as vulnerable as another. In general, all source language files 
should be preserved, and all files that can be re-generated (by re-compiling or 
by re-running the source program) need not be preserved unless it will be costly 
to re-generate them. The command format of the PRESERVE command is: 



PRESERVE list 



where "list" is a list of file specifications to be preserved. 

(6) COPY (COP) Command This command will duplicate as a single file 
from one or more source components. The format of the command is as follows: 



COPY output file spec = inputl, input2. 



where the file specifications on both sides of the equal sign have the standard 
form. The equal sign is required in the format, as it separates the destination 
side from the source side. The files at the source may^ have wild card 
construction, and they must be accessible to the user if they are stored under 
other PENS. The order of input files is important, because they will be merged 
into an output file in the precise order listed in the command. 

The six file management monitor commands are among the most frequently 
used commands. Actually, all of these commands except DIRECT run a system 
service program PIP and utilize some of its salient features. The PIP program 
can do a great deal more than that presented here, and it is one of the most 
versatile and important service programs. Details of PIP were given in 
Chapter 7. 

There are a number of points that may be of interest: 

A. When a file of another PEN is included in the file management 
command, that PEN must be specified. If several files have the same PPN 
specification, command structure can be simplified by moving the [m,n] part in 
front of these files. Thus the following twD commands are equivalent: 
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B. In a multi-user time-shar ing and batch system, the security of 
stored files has increasingly become such a serious problem that legislations 
are being considered at the federal level. To copy a copyrighted file without 
permission can lead to civil court action. To discourage "snooping" and abuses, 
file management commands are often modified and curtailed v^en another user's 
PPN is specified in the command. For example, when a user has logined under his 
own PPN of [ml,nl], the following commands will be rejected by the System and 
considered as "snooping" abuses: 

.DIRECT [m2,n2] 

.DIRECT *.F0R[m2,n2] 

.DIRECT X???.REL[m2,n2] 

.COPY *. * - *. *[m2,n2] 

. COPY *.BAS = '*.BAS [m2, n2] 

etc. 



C. While the examples of these commands have mainly concentrated on 
the management of disk files, they are equally applicable to DECtape file 
management. However, before these commands may be applied to DECtape files, the 
tapes must be mounted by the DRIVE and the MOUNT commands. The following shows 
a typical session of DECtape file management. Computer message printout is 
omitted to save space: 

.DRIVES DTA 

.MOUNT DTA:Tl/m/VID:A1004 

.REmm T1:NAME1.F0R = T1:NAME2.F0R 

.COPY SAMPLE.DAT = DATA1.DAT, T1:DATA2.DAT 

.DELETE Tl: DATA2.DAT 

.DISMOUNT Tl 

.UNDRIVE 



8.14 File Output Commands 

A file on disk or DECtape can be reproduced as an output via one of many 
output devices. These output monitor catimands are now tabulated below: 

File Output 
Monitor Command Function 



TYPE list To produce a typed copy of files listed in tne list on the 

user's terminal. 

PRINT list To produce a printed copy of files listed in the list on 

the line printer. 

CPUNCH list To produce a punched card deck of files listed in the list 

on the system card punch, 

TPUNCH list To produce a roll of punched paper tape of the files listed 

in the list at the system paper tape punch unit. 

PLOT list To produce a plot of files listed in the list on the system 

Calcomp plotter. 

where "list" is a single file specification or a series of file specifications. 
Except for the TYPE command vAiich produces the output at the user's terminal. 
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all other commands listed above use the system output facilities. As the 
facilities are shared by all users, by necessity a traffic control scheme must 
be established for orderly execution. Priority rules must be set up so that the 
facilities will not be monopolized by large-output jobs. These considerations 
led to the idea of setting up a queuing line of output jobs, and the design of a 
strategy of assigning priorities to jobs in the queuing line. Furthermore, the 
need for establishing priority and queuing also exits for batch jobs. 
Therefore, one single monitor command may be used to request output, and the 
command will substitute for the above listed commands (all except TYPE) . The 
command QUEUE will be presented next. 



8.15 The QUEUE Command 

The QUEUE command allows the user to make entries in several system 
queues - the input queue for the batch system* and the output spooling queues 
for the line printer, the card punch, the paper tape punch, and the plotter. 
The QUEUE command with appropriate switches also reports or modifies the status 
of the queue entries. 

The general form of a OJEUE command is as follows: 



QUEUE QLINE:JQBNAME = NAME. EXT/Sw itches 



The QLINE parameter selects the queuing line. At the University of Pittsburgh, 
there are five queuing lines incorporated into the QUEUE command: the batch 
queue, the line printer queue, the card punch queue, the paper tape punch queue 
and the plotter queue. They are discussed in detail next. 



*At the University of Pittsburgh, the capability of the QUEUE command to sutmit 
an input batch job is disabled. The entry of input queue in the batch system is 
now done by the OPRSTK command (see Chapters 7 and 9). However, the QUEUE 
command may still be used to inquire about or modify the status of batch jobs in 
the input queues. 
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First, the QLINE: parameters are outlined below: 

QLINE: Short Form Explanations 

INP: I: Batch input queue. 

LPT: L: Line printer output queue. For printer jobs, station 
number can be specified to designate a particular 
printer in the form of LPTSn: This QLINE is optional 
for all print jobs, except when the file extension is 
any of: CDP, PTP, or PLT. 

CDP: C: Card punch output queue. This QLINE is optional if the 
file extension is CDP. 

PTP: FT: Paper tape punch output queue. This QLINE is optional 
if the file extension is PT'P. 

PLT: PL: Plotter output queue. This QLINE is optional if the 
file extension is PLT. 

Other parameters in the command string are: 

JOBNAME = name of the job being entered into the queue. This part is 
optional. If omitted, the jobname given by the System is the 
name of the first file in the request. 

NAME. EXT = file specifications which may include [m,n] for other PPN. 
Wild card construction is also allowed. 

/Switches = switches that control the action of the command. 

The main advantage of using a QUEUE command is that it unifies and 
replaces many input/output monitor commands. If the rule on the file extension 
is observed (namely, "The extensions CDP, FTP, and PLT are exclusively reserved 
for output files of card punch, paper tape punch, and plotter, respectively"), 
the following substitution of commands may be made: 

Monitor Command May be Substituted By: 



SUBMIT list* QUEUE list 

PRINT list QUEUE list 

CPUNCH list QUEUE list 

TPUNCH list QUEUE list 

PLOT list QUEUE list 

Thus, if a file is named with an appropriate extension, the ClUEUE command 
will automatically enter it in the proper output queue and the QLINE in the 
command structure may be omitted. 



*"SUBMIT list" command for submitting batch jobs is disabled at Pitt, 
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There are three types of QUEUE switches: 

(1) Queue operation swithces These switches define the queue 
operations. Only one of this type may be placed in a QUEUE command. It may 
appear anywhere in the command string. , 

(2) General queue switches These switches generally affect the 
scheduling of the queue entries. Each switch of this type may appear only once 
in a command string but it affects the entire request. It may appear anywhere 
in the command string. 



(3) File-control switches 



These switches affect the individual 



files in a request and must be adjacent to the file specification in the command 
string. Different placements of these switches in the command string have 
different meanings. Normally, such a switch is placed immediately after a file 
specification, and that switch only controls that particular file. If such a 
switch is placed immediately before a group of file specifications, that switch 
will control all files that follow until restored or changed by another switch. 
See the following examples: 



Examples 



Remarks 



FI . EXT , F2 . EXT/COPIES : 2 , F3 . EXT 



Requesting 2 copies of F2, 1 copy of 
Fl and F3 



/COPIES: 2 F1.EXT,F2.EXT,F3.EXT 



Requesting 2 copies of F1,F2,F3 



/COPIES: 2 Fl.EXT, F2.EXT, F3. EXT/COPIES :1 

Requesting 2 copies of Fl and F2, 1 
copy of F3 



Actually, this is also true for a device name, a PPN, or a file extension. 

The number of switches with their respective arguments is quite large. 
However, not every one will be useful or meaningful to an average user. 
Consistent with the purpose of this book, only a judiciously chosen subset of 
these switches will be presented, along with appropriate remarks, examples, and 
explanations. For complete information, the readers are referred to References 
1, 2, and 6. 

Note that if an argument of a switch is omitted, a default value is 
assumed only if the colon is also omitted. Otherwise, the value of the argument 
will be assumed by the System as zero, not the default value. For this reason, 
it may be more prudent to consider the colon to be a part of the argument, 
rather than a part of the switch. The selected switches are now given in three 
tables, categorized in the types mentioned above as Table 8.5, 8.6 and 8.7. The 
keyword for each switch may be shortened. The underscored part of the switch is 
the minimum that should be designated. For example, /LIST may also be given as 
/L, /LI, /LIS or /LIST. 
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Examples of Listing the Queues ; 



Example : .Q [115103, 32057l]/LIST 
Function ; List all jobs entries submitted 
typical printout is shown below: 



by [115103,320571], A 



(J-INPOT QUEUE AT 14:10:33 31-^0f:5e2^--/^^r-^^ '^"-^^^ '"'"''^"^ +^ t+,«. >W 
DEV PPN PJOB I TSEQ T ,ymm TIME CORE PRI 

.INP 115103,320571 ITESTIJ i3'287l*s'ZE 00:02:00 8K 



LIMIT 5^ AFTER 



LINE PRINTER QUEUE AT 14 ^§^: 33 3^-JUL-80 
/■ DEV PPN SYS| job! fSEQ 'I NAME 

/, LPTS10#115103, 320571 B TEST_1 1101161 *SZE 

OiAtput" "jolj) Flag sign: none = job still waiting 

e"tr<s j @ = job being transferred to the front end 

L , • ^ , # = job having been transferred to the front end 

sr*f.»««u*.fc«^ * ^ JQj^ l^g^^g processed 



Example : .Q [11 51 03, 3 20 571] /FAST 

Functio n: For the same queue inquiry, 
following: 

INP 115103,320571 TESTl 328"' *SZE 
LPTSIO 115103,320571 B TEST 10116 *SZE 



this switch will yield the 



00:02:00 
3 



8K 



Example : 
Function; 



.q [115103,3205?1]/SUHIAEY 
This command will yield ^ n 
input queue inforamti' 
typical printout is as 



.y [115103, ^-dOb/H/SUfflAHY 

This command will yield a printout format giving the batch 

input queue inforamtion as well as the printer queue. A 



QUEUE SUMMARY AT 13: 22:1"' 31-JUL-80 PITT DEC-1099/B 63A,44A 

EXECUTION QUEUES PRINT QUEUES (STD FORMS) 



LIMIT AV. AGE OLDEST JOBS TIME * 



WHERE 



30SEC 00:00:00 00:00:00 00:00:00 

2MIN 00:00:00 00:00:00 00:00:00 

lOMIN 00:00:00 00:00:00 00:00:00 

20MIN 00:00:00 00:00:00 00:00:00 

30MIN 00:00:00 00:00:00 00:00:00 

1 HR 00:00:00 00:00:00 00:00:00 

LPQ 00:00:00 00:00:00 00:00:00 

OTHER 00:01:31 00:01:31 1 00:02:00 



OLDEST JOB 
<16 PGS ALL JOBS PGS 



Example ; .Q INP:[ll5103,32057l]/LIST 
.SUBMIT [115103, 320571]/LIST 

Function : Both canmands will print out 
sutxnitted by [115103,320571]. 



the status of batch jobs 
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Example : .<^ J^PT: [115103, 32057l]/SUMMARY 
.PRINT [115103, 32057l]/SUWMRY 
Function ; Either one will print out the PPN's printer job status. 



Example ; .Q INF: /LIST 
. SUBMIT/LIST 
Function ; Print out all batch jobs entries in the System. 



Example ; . Q LPTSl : /LIST 

Function ; Print out all printer jobs at station No. 10. 

If the queued jobs have been completed vAien an inquiry is made, the 
System will return a message of: "The queues are empty." 



Examples of changing the queues 

Two switches may be used to change the queues: /MODIFY and /KILL. In a 
selective modification or deletion, the jobs must be identified by either the 
/SEQ:n switch or by the JOBNAME assigned. If /KILL is applied without a 
selective identification, every job fitting the specification will be deleted. 



Example : 
Function: 



.Q LPT:=/KILL or 

Delete all printer jobs. 



.PRINT/ KILL 



Example : .Q LPTSl 0:=/KILL 

Function : Delete all printer jobs submitted to Station No. 10 
pr inter . 



Example ; 
Function; 



.Q INP:TEST=/KILL or .SUBMIT TEST=/KILL 
Delete a batch job whose jobname is TEST. 



Example : .Q LPT :=/SEQ: 10116 /KILL or .PRINT/SEQ:10116/KILL 
Function ; Delete a print job which has been assigned a sequence 
number of 10116. 



Example ; .Q LPT:=/SEQ:10116/MOD/BREAK:111111/LOC:6 

. PRINT /SEQ :1011 6 /MOD/BREAK: 11111 1/LOC: 6 
Function ; Modify a print job, whose ' sequence number is 10116, by 

re-routing it to Station No. 6 and programmer number 111111 

as the receiver of the output. 



Note: At the University of Pittsburgh, the ccmmand ".QUEUE INP:=" and ".SUBMIT" 
may be used for queue modification, but not for submitting batch jobs. The 
batch jobs are submitted by a Pitt-developed command of " .OPRSTK" . 
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Example ; .Q INP:=/SEQ:3287/M0D/C0RE:16 

.SUBMIT /SEQ:3287/MOD/COEE:26 
Function ; Change a batch job, whose sequence number is 3287, to a new 

core request (.from v^atevQ.r was before) of 16K. 



The following examples show certain applications of the switches: 



Example : .Q NEWTON. FOR/LOC:10/COPIES:3/SPACING:DOUBLE 
Function ; This command will submit a request to print 3 copies of 
NEWTON. FOR in the user's own disk area, double spaced, at 
the printer in Station No. 10, Note that if the file is 
already double-spaced (with a blank line as every alternate 
line) , the result with this command would be quadruple 
space . 



Example ; .QUEUE FOROl. DAT/FILE: ASCII 

Function ; A file with an extension of DAT is printed with an 
assumption it has the FORTRAN carriage control character 
format, because the /FILE ; FORTRAN is the default switch for 
all files with the extension of DAT. Therefore, the 
FORTRAN data files are always prepared by reserving the 
first column of every line blnak except for carriage 
control characters. If a data file is not prepared this 
way, or if it has an unknown origin, it would be prudent to 
include the /FILE: ASCII swithc in the print request. 
Otherwise, for example, every time the printer encounters a 
line beginning with a "1" in column 1, the printer will 
take as an instruction to a new page. 



Exanple ; .QUEUE PEOBl. CDF /COPIES: 2 /DIS: REN 
Function ; Punch two copies of PROBl.CDP in cards*, and 
file frcm the owner's disk area immediately. 



remove the 



*Note to Pitt users; Pitt does card punch jobs outside the University. The 
punch job files are collected on tape once a week from the disk. A user should 
either keep his CDP file at least another week after he sutmits the punch 
request or use the /DISPOSE; RENAME switch. 
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Switch 




/LIST 



/LOCATE 



/KILL 



/MODIFY 



/SUMMARY 



Argument 



:2 
:3 

:n 



Explanation 

Same as /FAST, except that no PPN is 
required , Command format is simply "Q/CH" . 

List all jobs in the specified queue in a 
short format. Same as /LIST except no 
headings are printed. 



List the entries in the specified queue 
with a format as shown in the example shown 
in this Section. 

More detailed listing 

Most detailed listing 

Route the output to the specified printer 
at station No. n. Each station printer 
has a page limit, and long jobs can be 
printed only at certain printers. Also, 
only certain printers have lower case 
capability. 

Delete an entry from a specified queue. If 
used with /SEQ:n switch or by the JOBNAME 
in the command, only the specified jobs are 
killed. Otherwise, all jobs in the 
specified queue are deleted. 

Used in combination with another switch to 
change the value of that switch for a job 
already in the queue. The job to be 
modified must be identified either by a 
/SEQ:n switch or by the JOBNAME in the 
command. The specification of a previously 
submitted job may be modified by using the 
/^DDIFY switch in conjunction with another 
QUEUE switch. To change the specification 
of a previously submitted batch job, use the 
following switches with the MODIFY switch: 



/CORE;n 
/OUTPUT :n 



To change core limt to nK 

To change the batch job OUTPUT 

parameter to n. 

To change the page limit 

To change job priority 

/TIME ;hh;mm;ss 

To change CPU time limit 



/PAGES ;n 
/PRIORITY :n 



To print out a summary of jobs in the 
queue. 



Default 
Argument 



:1 



n=station 
number 
of RJE 



Table 8.5 Selected Queue Operation Switches of the QUEUE Command 



Note: Underscored characters correspond to the short forms of the switches 
and the arguments. 
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Switch 


Argument 


Explanation 


Default 
Argument 


/^TER 


:HHMM 
:+HHMM 


Job will not be processed until after the 
specified time: 

After HHMM (using a 24-hour clock, 
HH=hour, and MM=rainutes) 

"HH" hours and "MM" minutes frcsn now or 
later 


HHMM=0000 


/roEAK 


:N 


Route the output to user whose programmer 
is N. 


N=Own 
PPN 


/FORM 


:ir 

STD 


Route a print job to a printer that can 
print lower case characters. 

Print job on standard form, a default 
condition. 


/LIMIT 


:n 


Limit the output to the specified number 
of pages, cards, or feet of paper tape. 




/SEQ 


:n 


The sequence number identifies a 
particular job in a queue. This switch 
is normally used in combination with the 
/MODIFY or the /KILL switch to change or 
delete a seleted entry in the queue - 





Table 8.6 Selected General Queue Switches of the QUEUE Command 

Note: Underscored characters correspond to the short forms of the switches 
and the arguments. 



Example : 
Function: 



Example ; 
Function: 



Example : 
Function: 



.SUBMIT/SEQ: 10116/MODIFY/CORE: 32K 

To change a previously submitted batch job (identified by 

its sequence number) core request to 32K. 

. PRINT/MODIFY/LOC : 6/FO: IC 

To re-route all printer jobs already submitted to 

location-6 and ask for lower-case printing. 



.PRINT /H/A:0000/LOC:3 

To re-route all printer jobs to printer-3 and do 

midnight. 



it after 
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Switch 



Argument 



Explanations 



Default 
Argument 



/COPIES 



/DISPOSE 



[DELETE 



: PRESERVE 



: RENAME 



/FILE 



/SPACING 



: ASCII 



: FORTRAN 



:SINGLE 
:DpUBLE 
: TRIPLE 



To generate n copies of the output, 
not larger than given in this table: 



but 



Device 

LPT 
CDP 
PTP 
PLT 



Maximum "n" 

63 

3 
63 

3 



Files to remain in the owner's disk area, 
but to be deleted after processed. 

Files to reraian in the owner's disk area, 
except those defaulting to 
/DISPOSE: RENAME. 

Files to be immediately removed from the 
owner's disk area and placed in a system 
disk area, where it is neither accessible 
by the owner nor counted agains this disk 
quota. The file is deleted after 
spooling. This is the default for files 
with extensions of LST and TMP and if 
protection code is <Oyz>, and extension 
one of these: CDP, LPT, PLT or FTP. 



To specify that the file contains ASCII 
text. This is the default for all files 
except those with the extension of DAT. 

To specify that the file contains in 
column-1 of each line a FORTRAN carriage 
control character. This is the default 
for all files with the extension of DAT. 
Applied only to printer jobs. 

To print the file in single space. 

To print the file in double space. 

To print the file in triple space. 



:1 



: PRESERVE 



: SINGLE 



Table 8.7 Selected File-Control Switches of the QUEUE Command 



Nota: Underscored characters correspond to the short forms of the switches and 
the arguments. 
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8.16 Operating System Command Locally Enhanced 

While the Operating system is a part of the system software supplied by 
the computer vendor, local installations often modify certain commands to 
enhance their operations. At the University of Pittsburgh, there are a number 
of system commands enhanced to fit the local needs. Many take on different 
forms and keywords, such as DRIVE, .QUEUE, and OPRSTK. These various 
enhancements have been presented also in this chapter. Users at other 
installations should consult with their own Computer Center staff and 
documentations with respect to the local system enhancement. In some cases, it 
is an upward-compatible enhancement so that a user not familiar with the 
enhancement may still use the command with the standard format and functions. 
One such command is the TYPE command. In the normal way, the TYPE command would 
run the PIP program and construct a command from the list supplied in the TYPE 
command. Thus no switches are allowed other than the standard default values of 
the PIP program. 

At the University of Pittsburgh, a "TYPE" program is implemented and 
activated as a monitor command. The complete format for the command is: 



.TYPE /global-switches Output-spec = input list/local-switches 

where: global-switch = switches applied to all files in the list 
local-switch = switches applied to a specific file 

The simplest form of the command would be with no switch, or: 
.TYPE input-list 

Thus in its simplest form the TYPE command is the same as the DEC-10 
monitor command TYPE. 

The switches and their functions are tabulated in Table 8.8. 



Example : .TYPE SYS:TYPE.HLP/PAGES:2-2/IND:4 

Function : Type out Page 2 of the file SYS: TYPE. HLP with left margin 
at column 5. 

Example : .TYPE NEWTON. FOR/COLUMNS: 1-7 2/HEADER/PAUSE 

Function : Type out columns 1-72 of the file NEWTON. FOR on user's 

terminal with a header. At the beginning of each page 

(including the first) , the terminal beeps and pauses. 

This would allow a change of paper or alligrunent of typing 

position. 

Example ; .TYPE FCHART.LST/EMULATE: LABELS. CCT 

Function: Many programs are designed for printer output only. One 
such program is the FORFLO program discussed in Chapter 4 
(section 4.4) . When a printer is not accessible, for 
example for a dial-up user, the output may be produced on 
the user's terminal by emulating his terminal as a printer. 
"LABEL. CCT" is the stored "printer carriage control tape." 
For this example, the FORFDO program uses CTRL-S to 
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Switch jArgument 



/ALIGN 



/PAUSE ; 
/BIDCKS i :n-m 



/COLUMNS 



:n-m 
:m 



/EMULATE I rfilespec 



Explanation 



Pause to allow alignment of paper before the 
first page. A carriage return resumes the 



typing , 

Terminal will pause for paper alignment between 
every page. Carriage return resumes typing. 



Process only the nth through mth blocks. 
Process first m blocks of the file. This 
is applicable only to disk files. 



switch 



/FILE 



: ASCII 
: FORTRAN 



Proces only the nth through mth columns . 
Process the first m columns of each line. 

This specifies that the output device is to 
emulate a line printer. The file specification 
is of the standard form, which contains 
information of a non-standard carriage control 
tape, or CCT, The detail content of the CCT file 
is given below. 



/HEAraiR ; :n 



/INDENT ! :n 



- - h 



Treat the input file as ASCII text. 
Treat the input file having the first 
i FORTRAN carriage control character. 



column a 



Default 
Argument 



n=0: 
=1: 



n=2: 



Omit the file processing information block. 
Type out the information block at the 
beginning of the file. 

Type out only the information block at the 
beginning of the file. 



/LINES 



/PAGES 
/PRINT 

/TALLY 



:n-m 
:m 



:ARRCW 



ASCII 
OCTAL 
SUPPRESS 



Specify the left margin of output. Max n = 
If column-1 has tab character in it, 
indentation may be incorrect. 

Process only the nth through mth lines. 
Process the first m lines of the file. 



63. 

the 



Process only the nth through mth pages. 
Process the first m pages of the file. 

Type out control characters as up-arrow 

characters. 

Treat the file as straight ASCII file. 

Each word is converted to 12-digit octal number. 

Suppress all multiple-line spacing. 



all 
blocks 



all 
columns 



standard 
settings 



: ASCII 



:0 if no 
switch; 
n=l if 
argument 
missing 

n=0 



all 
lines 

all 
pages 

:ASCII 



Type out the total number of pages of the file. 



Table 8.8 Switches for the Enhanced TYPE Command 
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suppress formfeed, and the user should have a file 
lABEIfi.CCT containing just one record "/DC3:1-66:1" . The 
flow chart shown on page 145 was produced on a terminal in 
that way. 

Example ; .TYPE SAMPLE.DAT 

Function; Output the file SAMPLE.DAT on user's terminal. 



REFERENCES 



1. DEC SYSTEM-10 OPERATING SYSTEM COMMAND MANUAL, DEC #DEC-10-OSCMA-A-D, 

Digital Equipment Corporation, Maynard, Massachusetts; 1974. 

2. L^ate Notes to DEC SYSTEM-10 OPERATING SYSTEM COMMAND MANUAL, DEC 

#DEC-10-OSCMA-AENI , Digital Equipment Corporation, Maynard, 
Massachusetts; 1976. 

3. OPERATING SYSTEM COMMANDS, Reference Card, Computer Center, University of 

Pittsburgh, Pittsburgh, Pennsylvania; 1978. 

4. GETTING STARTED WITH TOP-10 COMMANDS, Digital Equipment Corporation, 

Maynard, Massachusetts; 1976. 

5. Various System HELP-files, Computer Center, University of Pittsburgh, 

Pittsburgh, Pennsylvania; 1980. 

6. The QUEUE COMMAND, DEC-10 Notes, Computer Center, University of 

Pittsburgh, Pittsburgh, Pennsylvania; October, 1980. 



CHAPTER 9 
MULTIPROGRM BATCH 



INTRODUCTION 



9.1 Introduction 

The conventional batch operation of a computer will dedicate all system 
resources to a current job. When this job is completed, the system resources 
are then reassigned to the next job. 

The DEC System-10 is a multiprogramming system . It allows multiple 
independent jobs to reside in the core simultaneously and to run concurrently, 
by sharing the core and by switching the central processor from one job to 
another when the processor becomes available. Using this approach, the DEC 
batch enables the execution of up to 14 jobs concurrently with time-sharing 
jobs*. Thus the multiprogram batch (MPB) is a hybrid mode of operation between 
the conventional batch and the conventional time-sharing modes. 

As a hybrid operation, the ^4PB operations often retain the advcintages and 
the disadvantages of both modes. Its chief advantages are: 

(1) Computer resources are used more efficiently to increase throughput, 
namely, more users served in a given length of time. 

(2) Programs and data can be prepared on key punches, which are less in 
demand than the terminals. The prepared card deck serves as a permanent storage 
in user's possession unrestricted by disk allocation quota and unthreatened by 
the prospect of a system crash. 

(3) Jobs may be run by an operator, or by user using a self-service card 
reader at a remote job entry station. Output may be retrieved later at the 
user ' s convenience . 

(4) Batch jobs have larger core allocations. Some large and long jobs 
can only be run in the batch mode. 



*Five jobs only fran the user's standpoint. 
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On the other hand, the major disadvantage of the MPB mode i£> the loss of 
interaction between the user and the computer . 

Since a job can normally be run on CEC-IO either as a batch job or as a 
time-sharing job, a judicious choice should be made by the user to maximize the 
advantages and to minimize the disadvantages. For example, a procjram debi^ged 
in the time-sharing mode and run in the batch mode would ccsnbine ttie best of two 
worlds. 



mode: 



In general , the following types of jobs are best suited for the batch 

(1) Production runs of a program already debugged. 

(2) Large and long jobs. 

(3) Jobs requiring large amount of input data and/or producing large 
amount of output data. 

(4) Jobs requiring no interaction between the user and the computer at 
the execution time. 

(5) Jobs of users who have difficulties to gain access to time-sharing 
facilities. 



9 . 2 BATCH S oftware System 

For the purpose of illustrating the MPB system, a very brief description 
of the BATCH software system will be given here. 

There are four major ccmponents in the MPB software system. They are the 
Stacker , the Queue Manager , the Batch Controller , and the Output Spooler . Each 
is a service program, and their interaction and control functions are shown in 
Figure 9.1. 

The Stacker progran performs the service of reading the input from the 
input devices and entering the job into a batch queue. Since each installation 
of EEC-IO system has variation of input device configuration, the Stacker is 
primarily oriented toward the card reader input, but it allows jobs to be 
entered from any input device that is code-compatible. In some installations, 
this vrould include the terminal and/or the disk*. Once the information is 
entered, appropriate data files are set up, monitor commands are generated that 
will later execute the job, and a job log file is set up to record the case 
history of the job. The log file is a part of the standard output a user 
receives after his batch job is completed, whether successful or not. 

The Queue Manager program schedules the job, both for the jobs in the 
batch controller's input queue and the output job queue. When a job request 
reaches the Queue Manager, its priority is ccxnputed by a formula based on such 
job parameters as the CPU time requested, core size requested, etc. The 
priority is further upgraded from time to time as the job ages in the queue. 
When the batch input job is conpleted, the Manager sends forward a request of 



*At the University of Pittsburgh installation, a modified Stacker called the 
Gyration Stacker (OPRSTK) is implemented to replace the EEC Stacl<er in order to 
unify all input/output device queues under a single queuing control. 



BATCH Software System 



369 



Input 

Devices 

Request 



Terminals 



Controller 
for Batch 
job queuing 
and output 
queue ing 



System 
Output 
Queues 



Temporary 

Disk 

storage 



User's Program 
on Disk 



Card 
Reader 



Card 
Reader 



Stacker 



Other Input 
Devices 



Stacker Stacker 



QUEUE MANAGER 



Paper Tape 
Queue 



Batcn 
Input 
Queue 



:_: 



BATCH 
CONTROLLER 



Linwe Printer 
Queue 



Card Punch 
Queue 



Batch 
Job #1 



Batch 
Job #n 



Plotter 
Queue 



OUTPUT SPOOLERS, for Paper Tape Punch, 
Line Printer, Card Punch, and Plotter, 



Paper 

Tape 

Punch 



Line 
Printer 



Card 
Punch 



Plotter 
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scheduling to the Output Queue, After the output is conpletecl, the Queue 
Manager scratches the job entry from the queue. 

The Batch Controller program processes the batch jobs by passing the 
monitor canmands, generated by the Stacker, onto the executive system for 
action. Here one should observe that the batch jobs processed by the Batch 
Controller are not distinguishable regarding the sources of thesie jobs. Jobs 
originated from the ranote terminals, from the card readers or from any 
code-compatible input device will appear the same to the Batch Controller. 
Therefore, the time-sharing and the batch jobs can share the Scime operating 
system and the non-resident software commands, and it is unnecessary for a user 
to learn tvro different sets of conmand languages, one for time-sharing and one 
for batch. Also, so long as the input codes are canpatible, any input device 
may submit a batch job. However, since a user can sign on the System only with 
the card reader or with the terminal, our discussion of batch jobs will be 
limited to these two sources only. 

The Output S pooler program allows the output to be stored temporarily on 
a system disk at a queue priority assigned by the Queue Manacjer. When the 
specified output device beccmes available, the appropriate spooling program 
processes the output job. Note in Figure 9.1, the batch system output devices 
do not include the remote terminals, and hence the terminal users, while it is 
possible for them to sufcsnit batch jobs at the terminals, will not receive the 
job output at their terminals. They must obtain the batch output at the System 
output devices. 



9 . 3 Procedure of Run ning a Batch Job 

At this point, we shall assume that the program has been written and 
prepared either as a card deck or as a stored file, the data assembled and 
prepared, and the user is ready. The procedure of running a batch job includes 
the following steps: 

(1) First, a control file should be made up, which contains the program, 
the data, the monitor ccramands and/or the BATCH commands in a propcjr composition 
and sequence. The control file made up can be either a conplete deck of cards 
or a stored disk file. 

(2) Secondly, submit the batch job for the run. This can b<; done either 
through a card reader (for control file punched on cards) or throijgh a terminal 
(for control file stored on disk) . 

(3) Thirdly, retrieve the output results and interpret the results. If 
there are errors, detect and correct them, and resutatiit. 

These procedures will now be discussed in details next. 
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9.4 Batch Control Commands 

The batch control ccnimands are ccxnmands whose functions are recognized by 
the Stacker in the Batch software system so that appropriate ccsnmands can be 
generated. These control ccsnmands. are all characterized by a dollar sign ($) in 
the first column and the ccamnand keyword starting at the second colunn. A 
selected set of batch control ccanmands is presented next. 



The general format of a batch control ccxnmand is: 




v*iere "$" = the cranmand symbol; must be in the first colimn; 

KEYWORD = the batch command keyword; must start from the second 
column; 

/swk = a switch or option specifying certain parameters (for 
example, core size, CHJ time limit, paper page limit, etc.) 

If a particular switch is not used in the command, the system automatically 
assigns a prescribed and safe option for the ccxnmand. For example, a user may 
use the page limit (of the printer output) option to specify the limit up to 999 
pages. If that option is not specified in the cotimand, the system automatically 
assigns 15 as the page limit. Such automatically assigned option is called the 
default condition of the switch. 

The control canmands presented here will often be referred to as " conmand 

cards ," even if they need not be always in card forms physically. Since they 

always have a dollar sign ($) in the first columns, they are also called the 
$-cards. 



9.5 Sign-On Batch Control Coimiands 

These conmand will generate the monitor ccmmand LOGIN with specifications 
of job requirements. Local installations often have variations and options of 
these commands. Users should confirm with the personnel at their local 
installation. 

(1) $SEQUENCE Card This conmand will specify a unique sequence number 
for the job. It may or may not be required at a local installation*. If it is 
required, it must always be the first card in the control file. 

(2) $ JOB Card This conmand will generate the Ii3GIN command and 
make specification and limits of job requirements. Its form is: 



$JOB JBNAME [m,n] /swl /sw2 ... /swn 



Z'D 



*At the University of Pittsburgh, the $SEQUE1«:e card is not needed. 
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where JBNAME = the optional job name given by the user. If this is omitted, 
the System assigns an arbitrary name such as JOBAA. The 
purpose of the JBNAME of a job is for its identification. 

[m,n] = user's PPN; must not be anitted. 

When the $JOB card is prepared by an IBM key punch, which 
does not have the "[" and the "]" punches, the PHJ may be 
punched either as (fm,n! or as (m,n) . 

/swk = JOB switches. A list of selected JOB switches is shown in 
Table 9.1. 

If the default conditions are satisfactory in an application, the simplest form 
of the $JOB card could be simply: 



$JOB [m 



^J 



v*iich will tell BATCH: (1) to login with a PPtSI of [m,n] , (2) to require no 
service of card punch, paper tape punch, or plotter, (3) to request the regular 
amount of core size, regular level of priority, and regular CPU time limit, and 
(4) to return the output at the station where the BATCH run is submitted. In 
the meantime, a job name may be arbitrarily assigned by the System. 

At the University of Pittsburgh, a short form of JOB card is permitted in 
the form of: 



$JOB JBNAME [m,n] (time, pages, core, cards, feet) 



The parameters of switches are given inside the parentheses and must be given in 
that specific order. If the default value is used, that parameter may simply be 
left blank, but the corana must be retained, unless it is a trailing comma. 
Additonal switches may be appended after the parentheses are closed. 

Example ; The two following JOB cards are equivalent: 

$JOB NEWTC»J [115103, 320571] /TIME: 1:00/CORE:12K 
$JOB NEWTON [115103, 320571] (1:00,,12K) 

The two following JOB cards are equivalent: 
$JOB [115103 , 320571 ] /CORE: 12K/PRI0RITY: 
$JOB [115103,320571] (,,12K) /PRIORITY :0 

When a batch job is sutanitted from a time-sharing terminal,, the PPN of 
the user is already known to the System. Therefore, such jobs are allowed to 
have PPN containing a wild card construction such as [*, 320571], [115103,*], or 
[*,*]. The advantage of such a construction is that one copy of such control 
file need be stored and it can be shared by many projects for the same user, or 
many users in the same project, or by an^^Dody. When such a job is sutmitted, 
the system will substitute the known PHJ for the "*" part of the JOB card. 

Many of the JOB card switch parameters pertain to the est.Lmated maximum 
usage of system resources, such as the CPU time, the core storage, and the 
output volumns that are required for the job. The user should try to estimate 
with a margin as close as possible above all of his requir^anents. If the 
requirements are under-estimated, either the job may not run, or the output may 
be cut off before it is ccwtipleted. On the other hand, although overestimates 
will not cause a waste in the System resources (because they are allocated only 
when actually needed in execution) , it will cause a drop of the job ranking in 
the Batch queue, and the turn-around time will suffer. A useful guide for a 
reasonable estimate is to look at the KJOB printouts of past s:Lmialr jobs, to 
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Default 


Switch 


Argument 


Explanation 


Argument 


/AFTER 




Job will not be processed until after the 
specified time: 






:HHMM 


After HHMM (using a 24-hour clock, 
HH=Hour, and MM=minutes) 


HHMM=0000 




:+MM 


"MM" minutes later 






:DD-MM-YY HHMM Process the job after HHMM on the 








specified day. For example, 8-AUG-80 1350 








means 1:50PM, August 8, 1980. 




/CORE 




Estimated maximum core request required 


Consult 






for the job: 


your 




:nK 


core in K-words 


local 




:n 


core in K-words (1 K = 1024 words) 


rules. 




:nP 


core in P-pages (1 P = 512 words) 

Route the printed output to a specified 


Same Snn as 


/LOCATE 








RJE station. 


RJE 




:Snn 








:nn 


nn = station number 






tname 


name = station name 




/OUTPOT 


:n 


Control the automatic queuing of the 
output at the end of a job. Argument "n" 
is listed below: 

n File Queued 


n=4 


no queuing 






1 only DOG file pritned 








2 Log file plus spooled output 








3 Log file, spooled output, *.I£T 








4 Same as 3 




/PACTIS 


:nn 


5 All except IDG file 




Estimated maximum number of printed pages 




/PRIORIT!^ 


:n 


Set the priority level of the job to "n": 

n=3 for high priority (HPQ) 

n=2 for normal priority (NPQ) 

n=l for low priority (LPQ) at lower rate 


n=2 


/SITQO 


:HH:MM:SS 


n=0 for no priority (NPQ) at bargain rate 




Job is to be run under the SITGO batch. 




/TIME 


Estimated maximumum CPU time required 


30 sec 


/UNIQUE 


:n 


n=0: Job may be run simultaneously with 

other jobs of the same PEN. 
n=l: Che job per PPN at a time. 


n=l 



Table 9.1 A List of Selected $JOB Card Switches 
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see how much CEU time was used, and to see vAiat was the maximum core area used 
in that job (called the HWM core, or the " high-water-mar k" core) , and then add 
10%. 



(3) $PASSWORD card 



This card has a format of: 



$PASSWORD password 



vAiere "password" is the user's password consisting of zero to six characters 
that have been stored with his PPN. The $PASSWORD card must follow immediately 
after the $JOB card, and these two together identify the batch user to the BATCH 
processor and initiate the creation of necessary temporary files for the job. 
If the password given is not valid, the job is terminated right there. 

When a batch job is sutmitted fron a terminal, the $PASSWORD card is not 
needed. The mere fact that the user is operating the terminal at the time is 
proof enough that he has a valid password. In this case, the system simply 
retrieves the stored password of the user. 

Thus the simplest version of job sign-on at the beginning of each batch 
job is shown below: 



$JOB [m,n] 
$PASSWORD password 



$SEQ 

$JOB [m,n] 
$PASSWORD password 



v*iere the "$SEQ" card is optional depending on the local 
conditions. 



installation 



9.6 Sign-Off Card, $EOJ 

The sign-off card is placed at the end of a Batch deck to tell BATCH that 
it has reached the end of a job. The design of the sing-off Ccird varies with 
local installations. Two differenet cards are described below: 

(1) The End-of-File Card This is the standard sign-off card 
recognized by the EEC-IO BATCH system. It is a card with punches in columns 1 
and 80 in rows 12,11,0,1 and rows 6,7,8,9 leaving rows 2,3,4,5 blcink. While it 
is possible to produce these punches on a key punch, it is quite difficult to 
reproduce that card as a record on a disk file, and thus causing problem in 
indicating the end-of-job when submitting the job through a terminal. This 
sign-off procedure is not used at the University of Pittsburgh. 

(2) The $EC)J Card The $EOJ card is implemented to replace the 
end-of-file card at the University of Pittsburgh installation. It will generate 
the monitor ccxnmand KJOB and sign off the user with appropriate; printout of 
usage data. It should be physically the last card in every BATCH deck. If this 
card is omitted, the end-of-job may still be determined by the presence of $JOB 
card of a following job, assuming that the user of the following job provides a 
correctly prepared $JOB card. If there is no job following, or if the following 
job card has error in it, difficulties may arise. Therefore, although it may 
not be always needed, it is prudent to use two $EOJ cards at the end, just in 
case there should be any read-error by the card reader. 
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9.7 The End-of-Deck Card, $EOD 

During the batch run, a number of batch control ccxnmands will tell BATCH 
to copy all cards following the canmand card into a disk file. Such copying of 
cards may be terminated only on two conditions: (1) when another $-card is 
encountered, or (2) when an end-of-deck card $EOD is encountered. The format 
for the latter is: 



$EOD 



As we shall see later, not every command card in the Batch deck is a $-card, it 
will be prudent to end every program and every group of data with a $EOD card, 
even though it may often be unnecessary. If each of the $card followed by the 
program or data to be copied ends with a $EOD card, this becomes a stand-alone 
module in the Batch deck. In this way, when the modules are moved or removed, 
or vAien additonal ccsttmands are inserted into the Batch deck at a later time, one 
can always be certain that these modules in the Batch deck have already been 
properly terminated. 



9.8 Batch Control Commands for Disk Storage 

The Batch control ccmmand $DECK placed in front of a deck of program 
and/or data cards will tell BATCH to copy it into a disk file, and do not delete 
it at the conclusion of the batch run. Its form is: 



$DECK NAME.EXT/switches 



Switches for the $DECK card are the same as those for the $DATA card, 
except for the IGNHOL switch, and they are listed in Table 9.2: 



Switch 


Argument 


Explanations 


Default 
Argument 


/WIDTH 


:N 


To read the first n colunns of each card as 
the data columns. (n<80) 


n=80 


/SUPPRESS 


:aN 
lOPF 


To suppress the trailing blank of each card. 
To read the trailing blanks of each data card 
as data columns. 


:CN 


/LINEBIDCK 
/IGNHOL 


To "lineblock" a data file so that it may be 
read by a FORTBM F40 program. Lineblocking 
is not required in a FORTRAN-IO program. 




r 


This is a switch for the $DECK card only. It 
is used to ignore the Hollerith errors in a 
deck of cards. Any column containing a 
Hollerith error is replaced by a backslash 
{\) before being stored on disk. The disk 
file can then be edited to correct the 
errors. 





Table 9.2 Switches for the $DECK and the $DATA Cards 
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The disk storage module in a batch job deck has the following 
composition: 



$DECK NAME. EXT 



program 
or data 



$EOD 



9 . 9 Batch Control Ccanmands for Compi ling an d Execution 

When the BATCH processes a FORTRAN job, it will assign a FORTRAN compiler 
and set aside disk area for tonporary storage for these files: (1) the source 
programs (programs in source language such as FORTRAN) and their ccxnpiled binary 
files (with extensions of REL) , (2) REL files that are already on disk, (3) data 
cards. When all files are stored as temporary files, the programs are then 
executed. The Batch control commands presented below will generate necessary 
monitor conmands that will perform these tasks. 

(1) Ccsnpiling ccanmand for source language programs Batch conmands in 

this group will tell BATCH to generate a monitor command COMPILE to process the 
source program deck that follows the ccsnmand card. Since there are several 
language processors that can be processed by the COMPILE command in DEC 
System-10 (ALGOL, COBOL, FORTRAN, MACRO, BLISS and SIMULA) , six Batch control 
commands for compiling are provided. They are $AD30L, $CC©OL, $FORTRAN, $MACRO, 
$BLISS and $SIMULA. Although the discussion in this section are directed to the 
command $FORTRAN, one may extrapolate the discussions to ALGOL, CC80L or MACRO 
since they share the similar formats, similar functions and the same switches. 

•Hhe format of the $FORTRAN card is: 



$FORTRAN NAME.EXT/switches 



vrfnere NAME. EXT is the name of the temporary file to be created to store the 
FORTRAN cards that follow. When the $FCK.TRAN card is followad by a FORTRAN 
source program deck, three events will take place: (a) The FORTRAN deck is 
copied onto the disk and named as "NAME. EXT" as designated in the $FORTRAN card; 
(b) the source program is compiled; and (c) the compiled result is stored on 
disk as NAME. REL. In the meantime, a temporary listing file is also prepared. 
The name NAME. EXT can often be omitted, and BATCH will create an arbitrary name 
for the program file, such as EKCKAA.FOR, EECKAB.FOR, etc. All files stored are 
temporary, and they will be deleted at the end of the Batch run. Threrefore, 
$FC»TRAN card should not be used if the user wishes to conpile and store the 
files. 



The simplest version of the $FORTRAN card is simply: 



$FORTRAN 



which tells the BATCH processor: (1) to copy the FORTRAN program into a 
temporary file, (2) to assign it a name (DECKAA.FOR) , (3) to reaa 72 columns of 
each card following the $FORTRAN card as a FORTRAN program, (5) no CREF 
lisitng, (5) to produce a listing of the program v^en the job is done, and (6) 
to use the PORTRAN-10 compiler. Although simple in form, it is the most useful 
form of the $FORTRAN card. 



$FORTRAN Card 

The following is a list of selected switches for the $FORTRAN card: 
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— 
Switch 


Argument 
.•n 


Explanations 


Default 
Argument 


/WIDTH 

/CREF 

/NOLIST 

/F40 

/FIO 


To read only the first n colunns of each card. 
(n<72) 


n=72 


To create a cross-reference listing of the 
FORTFtAN program when compiled. 


No CREF 
listing 


No listing of the program is to be prepared. 


Listing 


Use the FORTEWVN F40 compiler. 


/FIO 




Use the FORTRAN-10 compiler, a standard 
ccsnpiler at Pitt. 





Table 9.3 Switches for the $FORTRAN Card 



Two limitations of the $FORTRAN card should be noted. One is that it 
will list, compile but not execute the program. The other is that although 
files will be created to store the source programs and the ccxnpiled binary REL 
programs, they are all temporary and will be deleted at the end of the job. If 
one wishes to keep the FORTRAN or its REL files as permanent files for later 
use, $FORTRAN would be a wrorg canmand to use. Instead, one should use the 
$DECK card to store, and the monitor ccwnmand COMPILE to canpile and create the 
REL files. 



follows : 



The general conposition of a canpiling module in a Batch deck is as 



$FORTRAN 

FORTRAN source 
program (s) 

$EOD 



When a FORTRAN program consists of a main program and one or more subprograms, 
it can be conpiled either together in a deck as one module, or compiled 
separately in individual decks, each requiring one such module. As mentioned 
before, the $EOD card may be omitted if the first card of the next module is a 
$card. However, if the deck is modified in the future and a non-$card is 
inserted at the end without a $EOD terminating the FORTOAN module, the inserted 
command will be interpreted as a part of the FORTRAN program and causes an error 
termination of job v^en the program is compiled. Therefore, it is prudent to 
provide always a $EOD card at the end of the module as a standard practice. 

(2) Inclusion command for other REL files Not all components in a 
FORTRAN job are source programs. Many are binary relocatable REL files, v^ich 
are already compiled fron certain source programs and stored on disk. 
Sometimes, it is preferable to use the REL file because it will save time not to 
re-compile. Other times, the source language programs may not even be available 
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except the REL files. Since $FORTRAN card can only handle programs in source 
language, another ccmmand called $INCIjUDE should be used to include the REL 
files needed for later execution. The function of $INCUJDE card is to find the 
specified REL files and copy them onto the disk as temporary files. It has a 
form of: 



$INCLUDE NAME. REL [m,n] /switches 



where NAME. REL is a list of REL files to be included. The PEN follows the 
conventional rule and is omitted if it is user's own PPN. The switches of the 
$INCLUDE card are shown on Table 9,4. 



Switch 



/LIBRARY 



/PROGLIB 



/SYSTEM 



Explanations 



The REL file referenced usually contains many subprograms. Not all 
of them are needed in the job. The LIBRARY-switch will specify a 
search mode and include only those subprograms called by the main 
progran. Therefore, the $INCLUDE card with the LIBRARY switch 
should be placed after the program calling the subprogiram. 



The REL file specified by this switch is stored in the Program 
Library (PRG:). The two following commands are equivcilent: 

$INCLUDE NAME.REL/PROGLIB 
$INCLUDE PRG:NAME.REL 



The REL file specified by this switch is stored in the System 
Library (SYS:) . 



Table 9.4 Switches for the $INCLODE Card 



(3) Execution command 



The Batch control command $DATA is placed in 



front of the data cards to tell BATCH to copy the data into a disk file and to 
insert a monitor conmand EXECUTE into the control file. When the job is run, 
any FORTRAN program or programs that have been entered before 1±e $DATA card, 
and any REL files that were included by the $INCtIIDE card will be executed. 
Since the $DATA card generate an EXECOTE command, it is requirecJ for execution 
even if the program run needs no "data". In such a case, a $DATA alone with no 
data card following should be used for execution. 

The general form of the $DATA card is as follows: 



$DATA XXX.CDR/switches 



v^ere XXX. CDR is the optional 3-character file name specified by the user. If 
this is emitted, BATCH creates a unique name for the data file, for example, 
QAA.CDR. The switches for the $DATA card are the same as those of $DECK card as 
shown in Table 9.2, with the exception of the IGNHOL switch. 

The simplest version of the $DATA card is simply "$DATA" , which tells 
BATCH to copy the data into a file, to assign a unique name with an extension of 
CER such as QAA.CDR, to read all 80 colimns of each card as data, to delete the 
trailing blanks v*ien copying them into a file, and then to execute. 
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Each $DATA card generates only one EXECUTE cornmand. Hence, if you wish 
to execute a program several times with different sets of data, several $DATA 
cards are required, each followed by the appropriate set of data cards. Thus, 
the composition of an execution module in a Batch deck is shown below: 




A $DATA module followed by another $DATA module without intervening $FORTRAN 
will load and execute the same program again. However, if a $FORTRAN card 
follows a previous $DATA card, this terminates the previous program run and 
starts a new program run. Any subsequent $DATA will execute the new program. 
Therefore, the $DATA card should be placed in the Batch deck at such a place 
where all required FORTRAN programs have been canpiled and all required REL 
files have been included. 



9.10 A Summary of Batch Deck Modules 

The Batch control ccmmands presented are now simmarized in the form of 
deck modules: 



$JOB JBNAME[m,n]/sw 
$PASSWORD password 



Sign-On module 



$EOJ 



Sign-Off module 



$DECK NAME.EXT/sw 
program or data 
$EOD 



Disk-Storage module 



$FORTRAN NAME.EXT/sw 

FORTRAN programs 
$EOD 



Compiling module 



$INCLLIDE NAME.REL/sw 



Inclusion module 



$DATA XXX.CDR/sw 

data cards 
$EOD 



Execution module 
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Construction of a control file then beccmes a task of ass(anbling these 
modules in a proper order with ajpropriate contents. Examples are now presented 
next. 

In the following examples, we shall assume that the user has a PIW of 
[115103,320571] and his password is EEBBIE. Previous remarks on $EOD cards also 
afply here. 



Example 1 ; Copy a card deck (program) into a disk file an(3 name it as 
SAMPLE. FOR. 



$JOB [115103,320571] 
$PASSWORD DEBBIE 



$DECK SAMPLE. FOR 

card deck to 
be copied 

$EOD 



$EOJ 



The sign-on module. 



The storage module 



The sign-off mocJule 



A card deck, consisting of cards in the order as shown is assembled. 
When this deck is put through a card reader, a Batch job of copying a program 
deck onto the disk is submitted. At the conclusion of the job, there will be a 
disk file named SAMPLE. FOR in the disk area of the user [115103,320571]. 



data: 



Example 2 ; List, compile and execute a FORTRAN program vAiich need no 



$JOPB [115103,320571] 
$PASSWORD DEBBIE 



$FORTRAN 

FORTRAN source 
program deck 

$EOD 



$DATA 



$EOJ 



The sign-on module 



The listing and 
ccHtipiling module 



The execution module 
The sign-off moclule 



In this example, although several temporary files are created durirjg the job, no 
permanent file ranains after the job. 
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Example 3 ; List, ccsnpile. and execute a FORTRAN program with two sets of 
data. Note large amount of core and printout pages requested in the $JOB card: 



$JOB [115103,320571 
$PASSWORD DEBBIE 


] /CORE: 24K/TIME: 2: OO/PACSS : 100 


The sign-on module 


$FORTRAN 

FORTRAN 
program deck 

$EOD 


The compiling and 
listing module 


$DATA 

Data deck #1 
$EOD 


Execution module, fir 


$DATA 

Data deck #2 
$EOD 


Execution module, sec 


$EOJ 


The sign-off module 



Example 4 ; Execute a FORTRAN program with several separate decks of 
subprograms. The main program and the subprograns are MAIN. FOR, SUBl.FOR and 
SUB2.F0R respectively. In addition, the program calls for subroutines that are 
a part of a library package ENG: SUBSET. REL. 



$JOB [115103 , 320571 ] /CORE; 12K/TI ME: 2; GO/PRIORITY; 

The sign-on module 



$PASSWORD DEBBIE 



$FORTRAN MAIN. FOR 

MAIN. FOR deck 
$EOD 



$FORTRAN SLBl.FOR 

SUBl.FOR deck 
$EOD 



$FORTRAN SUB2.F0R 

SUB2.F0R deck 
$EOD 



$INCLUDE ENG: SUBSET. REL/LIB 



$DATA 

data deck 

$EX)J 



Listing and ccmpiling module 

Listing and compiling module 

Listing and ccmpiling module 

Inclusion module 
Execution module 

Sign-off module 
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Example 5 ; The major functions of several batch control commands are to 
store the decks temporarily and to issue the commands COMPILE or EXECUTE. If 
the files are already stored on disk, these $cards may be replaced by suitable 
monitor commands. In such cases, the command card should begin with a period 
(.) in the first column. Moreover, any monitor command, with the exception of 
those irrelevant for batch operation such as the SEND comamnd, may be included 
in the control file. Examples 2, 3 and 4 are now repeated below using monitor 
commands replacing some of the $cards: 



$JOB [115103, 320571] 
$PASSWORD DEBBIE 



.UPDATE SAMPLE. FOR 
FORTRAN source 
program deck 

$$END 



.EXECUTE SAMPLE. FOR 



$EOJ 



Mternate Batch Deck for 
Example 2 



$JOB [115103, 320571] /switches 
$PASSWORD DEBBIE 



.UPDATE SAMPEL.FOR 
FORTRAN source 
program deck 
$$END 



.EXECUTE SAMPLE. FOR 
Data deck #1 

$EOJ 



Alternate Batch Deck for 
Example 3 



$JOB [115103 , 320571 ] /CORE : 12K/TIME: 2 : 00/PRIORITY: 
$PASSWORD DEBBIE 



$DECK PRGM.FOR 
MAIN. FOR deck 
SUBl.FOR deck 
SUB2.F0R deck 

$EOD 



.EXECUTE PRGM.FOR, ENG: SUBSET. REI/LIB 
Data deck 



$EOJ 



Alternate Batch Deck for Example 4 



The main difference between these alternate Batch decks from the original 
solutions given is that the FORTRAN files and their compiled REL files are now 
all permanently stored in the user's disk area. 

The Batch Controller controls all jobs that enter the BATCH system. It 

reads each line in the control file and determines its destination by 

interpreting the character in the first two colunnns. The interpretations by 
BATCH for these characters are tabulated in Table 9.5. 



Thus, by combining the monitor commands and the CUSP commands, a Batch 
deck may be constructed without any special Batch control card except those to 
sing-on and to sign-off. Examples below illustrate this flexibility: 



Column 1 Column 2 


Intespretation 


Example 


$ 1 Alphabet 


Batch control command (or $card) 


$JOB - batch connmand $JOB 


$ 


Numer ic 
or special 
character 


Data beginning from column 1 


$123.95 - interpreted as a data 


$ 


$ 


Column 1 is suppressed. The line is taken 
as data beginning fran column 2. Used to 
represent data of the form $-alfhabet. 


$$JCB IS A BATCH COyiMAND - interpreted 
as "$JOB IS A BATCH COMMAND", a string 
data consisting of characters. 


• 


Aljiiabet 


Monitor command 


.R UPDATE - interpreted as a monitor 
command 


. 


Non-numeric 


Data including column 1 


■ 
,1095 - interpreted as a data 


* 




CUSP level command 


.R BASIC To run a BASIC 
*OLD,NEWTCN program named 
*RUN NEWTON. BAS 


% 




Comment 


; CONTINUE 


- 


Aljiiabet 


Control-character 


'C interpreted as Control-C 


- 


" 


Multiple ' in succession counted 


C interpreted as Control-C 



Table 9.5 A Summary of Line Interpretation by the Batch Controller 
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disk. 



Example 6 ; Execute a EXDRTRAN NEWTCW.FOR which is already stored on 



$JOB[115103, 320571] 

$ PASSWORD D EBBIE ■ 

•EXECUTE NEWTCW.FOR 

XFormatted data required by NEWTON. FOR) 
$EOJ 



Example 7 ; Enter a PIL program, run it and save it as NEWTCN.PIL 



$JOB [115103, 320571] 

^PASSWORD DEBBIE _ 

• R PIL 

(PIL program deck) 
(Program begins with Part 1) 
DO PART 1 

(Data deck) 
_SAVE AS "NEVnPN", ALL PA RTS. A LL FORMS 
$EOJ 



9 . 11 Batch Control Ccaimands for Error Recovery 

Normally, v^en an error occurs in the job, BATCH will report the error on 
the log file and terminate the job. Error recovery means to provide the user 
with an alternative should the error occurs. The formats of the error recovery 
control conmands are: 



$ERROR statement 
$NOERROR statement 



The commands are interpreted this way by the BATCH processor: If the command 
keyword (ERROR or N3ERR0R) is " true ", execute the "statement" following the 
command. Otherwise, execute the next line in the control file. The "statement" 
in the ccxnmand is another caranand to the monitor, to a system program or a 
special BATCH command such as .GOTO or .BACKTO as an error branching catmand. 

The Batch conmands of .GOTO and .BACKTO have the form: 



.GOTO statement label 
.BACKTO statement label 



vrtiere the "statement label" is the label of a line in the control file. The 
label can contain from 1 to 6 alphabetic characters and must be followed by a 
double colon (::) vAien it is labeling a line. 

The .GOTO command will transfer the control of BATCH forward to the 
reference line v^ich contains the label. The .BACKTO conmand does the similar 
thing except it transfer the control of BATCH backward to a reference line 
containing the label. If the search for the reference line with the specified 
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label is not successful, the BATCH terminates the job. 



Example ; The new version of an old program OLD. FOR has been prepared as 
NEW. FOR. Both are stored on disk. The user now wishes to run the batcn in this 
manner: If the new version works, use the new version. If the new version 
still has bugs, then use the old version. 

The problon logic may be represented as a flow chart as shown in 
Figure 9.2. Each of the flow chart blocks is nunbered, and these numbered 
blocks correspond directly with the modules of the Batch deck assembled as shown 
in Figure 9.3. 



9.12 Miscellaneous Topics in Batch Control Commands 

(1) Batch control commands developed at Pitt At each local 
installation, often additional $cards are created to handle local needs, such as 
a particularly heavy demand of certain "canned" programs, or some special 
procedures instituted at a local installation. A group of $cards created at the 
University of Pittsburgh are presented here: 



$Card 



$BMD ( XXX) /switches 



$CSMP/switches 



$DRIVES IS;V{n) 



$EOJ 



Explanations and Examples 



The BMD (BioMeDical Computer Programs) is a canned 
program package developed originally at UCLA. Readers 
are referred to the References for more details. "xxx" 
is the last three characters of the name of the desired 
BMD program. 
Example : $JOB [115103, 320571]/CORE:32K/TIME:2:00 

$PASSWORD DEBBIE 

$BMD (07B) 

BMD control cards and input data cards 

$EOJ 

The CSMP (Continuous System Modeling Program) is a canned 
program originally developed by IBM, This $card is 
placed immediately before the CSMP source deck, 



Example ; $JOB [115103, 320571]/C.ORE:28K/TIME:2; 
$PASSWORD DEBBIE 
$CSMP 

CSMP source deck 
$EOJ 



00 



To request allocation of tape drives. "DEV" is one of the 
following tape drives: 
MTV 7-track magtape drive 
m8 9-track magtape drive (800/1600 BPI) 
MT9 9-track magtape drive (1600/6250 BPI) 
DTA DECtape drive 

n number of drives required for the job. If n is 

it may be omitted along with the parentheses 



1, 



This $card may be placed anyv*iere after the $PASSWORD 
card. It is required for batch jobs that use tapes. 



It must be physically the last card in 
See Section 9.6 for details. 



the Batch deck. 
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$INCLUDE 



It directs BATCH to inqlude some existing REL files vi^en 
the program is executed. See more details in 
Section 9.9. 



$SPSS/switches 



$RLIN DEV:NAME. EXE [m,n] /switches 

This card is placed directly in front of data cards vitien 
running a program previously saved as an EXE file, 
created by a SAVE command. 

Example ; The core image of a program has been 
previously saved as SAMPLE.EXE 

$JOB [115103,320571]/CORE:15K/TIME:2:00 
$PASSWORD DEBBIE 
$RUN SAMPLE 

Input data deck for the program 
$EOJ 



This switch is used to run the SPSS (Statistical Package 
for the Social Sciences) program, and is placed 
immediately before the control cards and input data 
cards. 

Example ; $JOB [115103, 320571]/CORE:28K/TIME:2:00 
■ $PASSWORD DEBBIE 
$SPSS 

SPSS control cards and data cards 
$EOJ 



(2) A summary of switches for the $cards The $cards have many options 
by using the form of switches. These have been described previously in this 

chapter accompanying the associated $card. Cations need not always be 
exercised. When a switch available is not specified in a $card, the System 
assigns a "default value" for the option. The default conditions of all 
switches for the Batch Control Commands are tabulated on Table 9.6„ 



© 



c 



Sign On 
the BATCH 



^ 



) 



Canpile 
NEW. FDR 




® ® 



Execute with 
data file 
FOROl.DAT 



© 



Q 



Sign Off 
the BATCH 



3 



Figure 9.2 Flow Chart Logic 



© 


$JOB [115103,320571] 
$PASSWORD DEBBIE 


® 


$FORrRAN NEW. FOR 




program deck 
of NEW. FOR 




$EOD 


© 


$ERROR .GOTO A 


© 


.GOTO B 


© 


A::; CONTINUE 




$FORrRAN OLD -FOR 




prgram deck 
of OLD. FOR 




$EOD 


© 


B::; COSITINUE 




$DATA FOR01.DAT 




data deck 




$EOD 


© 


$EOJ 



Figure 9.3 Batch Run Deck 



$Card 
Switch 


$LANGUAGE 


$DATA 


$DECK 


$BMD 


$CSMP 


$INCH]DE 


$RUN 


$SPSS 


/026 

/t)026 

/ASCII 


X 
X 
D 


- ■ ■ 
X 


X 
X 
D 


X 
X 

D 


X 
X 

D 




X 
X 

D 


X 
X 

D 


AINEBDXK 


X 


D 


X 


D 


D 




D 


D 


/CREF 


X ; 1 












/WIDTH:n 


note 1 


n=80 


n=80 


n=80 


n=80 


n=80 


n=80 


/SUPPRESS: XX 


note 2 


XXOFF 


XXON 


XX=OFF 


XXOFF 




XXOFF 


XXOFF 


/LIST 
/NOLIST 


\ 

X j 










/SYSTEM 


i 








X 


X 




/PRDGLIB 










X 


X 




/LIBRARY 










X 





Legend: D = The option chosen by the $card if a switch is omitted. 
X = The switch is valid on that card type. 
Blank = the switch is invalid on that card type, and the job will be cancelled. 

Note 1: n=80 for $AD30L and $MACRD; n=72 for $COBOL and $FORrRAN 
Note 2: XXOFF for $FORTRAN; XXON for $ALQOL, $COBOL and $MACRD 



Table 9.6 Default Conditions for the Selected Switches of Batch Control Commands 
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SUBMITTING A BATCH JOB 



9.13 Sutoitting Batch Jobs in Cards 

Submitting Batch jobs in cards is the most conmon procedure of running 
the batch jobs. After the Batch deck is prepared and assembled, the deck is 
submitted for reading into the Batch qupue by a card reader. In some 
installations, the deck is sutxnitted to the personnel of the Computer Center. 
In other installations, the users operate self-service card readers to read in 
their jobs at a remote job entry station. 



9.14 Submitting Batch Jobs from a Terminal 

To submit a Batch job from a terminal, the user must first prepare a 
control file and store it on disk. The details of how to prepare a control file 
for a job have been given in the earlier part of this chapter. From that point 
on, there are several ways to run the Batch jobs fran the terminal. These 
various ways are not always all available at a local installation. It is 
necessary for the user to confirm vAiich way is used at his installation. 

(1) By using monitor commands SUBMIT or QUEUE INP; The monitor 
commands SUBMIT and QUEUE INP: are used to place entries into the input queue 
for the Batch system. Their formats are as follows:* 

SUBMIT JBNAME = NAME.CTL, log file 
QUEUE INP: JBNAME = NAME.CTL, log file 

vihere JBNAME = name of the job being entered into the queue. 

NAME.CTL= name of the control file. This file contains all 
monitor-level and Batch control commands for processing by 
the Batch Controller. 

log file= name of the log file. This file is used by the Batch 
Controller to record the case history of the job 
processing . 

(2) By using specially implemented service program At each local 
installation, there is a configuration of peripheral devices that are 
specifically assembled for its needs. Since these peripheral devices share 
common computer resources, it is extremely important to establish an orderly 
traffic control. The result is the Queue Manager in the Batch Software System 
as described in Section 9.2. VEC System-10 provides a service program called 
CDRSTK to provide these functions. At the University of Pittsburgh, the CDRSTK 
program has been modified and enriched, and the result is called the C^ration 
Stack (OPRSTK) program. Description of this program and its use has been 
covered in Chapter 7. For the purpose of completeness, some pertinent portions 
of its details will again be given here. 

To sutmit a Batch job at a terminal, the following steps should be taken: 



*Disabled at the University of Pittsburgh and replaced by the OPRSTK program 
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A. Sign on at a tenninal. 

B. Create a control file using an editor. Save the file and name it 
with an extenison of CTL. 

C. Run the OPRSTK program by either of the following two monitor 
ccmmand forms: 



or simply. 



,R OPRSTK 

ENTER FILE SPECIFICATION > NAf^.CTL 



.OP NAME 



If the control file has an extension of CTL, the extension part may be omitted 
in the ccxtmand format. The System will respond with the job card identification 
and assign a sequence number for identification. 

Example ; We will now repeat the program used several times in this book 

as illustration, a problem to solve for a real root of a cubic equation by 

Newton-Raphson method: Ax^ + bx^ + Cx + D = with an initial trial 

value x=Xl. Program in FORTRAN is written and stored as NEWTON. FOR. The 
program listing is shown below: 

NEtTOON.FOR 

READ(5,10)A,B,C,D,X1 

10 FORMAT (5F) 

1 X2=Xl-( (A*Xl**3+B*Xl**2+C*Xl-fO)/(3.*A*Xl**2+2.*B*Xl+C) 
IF(ABS((X1-X2)/X2)-0.001)3,3,2 

2 X1=X2 
GO TO 1 

3 WRITE (6, 11) X2 

11 FORMAT(/' THE REAL ROOT =' , F20.7) 
STOP 

END 

In the example shown below, we will attempt to solve the equation: 

x-^ - 16x2 + 65x - 50 = with Xl=16 

Thus, the input data are 1, -16, 65, -50 and 16 respectively for A,B,C,D,X1. 
The control file made up is PORT. CTL: : 

FORT.CTL : 

$JOB [115103, 320571] 
$DATA 

1.0 -16.0 65.0 -50.0 16.0 
$EOD 

.EXECUTE NEWTCN.FOR 
$EXXI 

Note that the $PASSWORD card is csnitted in the control file because it is 
unnecessary vAien the batch jobs are suhxnitted from a terminal. 
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Once this preparatory work is done, sutxnitting a Batch job is simply 
issuing a monitor command of OPRSTK (abbreviated as "OP") at the user's 
terminal : 

$JOB [115103, 320571] 

; ; ; END OF JOB AFTER 6 CARDS / SEQUENCE NUMBER IS 3678 

The output is just a one-liner: "THE REAL ROOT = 10.0". The log file 
showing the job time history is attached here with comments and annotations. 
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BATCH 



16:39:27 BA JOB BATCON version 13(1071)-2 running JOBAAA seq:6839 user:»SZE 
16:39:27 BASUM Time:00:00:30 Core:12K Unlque:YES Restart:YES PrIorIty:2 



16:39: 
16:39; 
16:39; 
16:39; 
16:39; 
16:39; 
16:39i 
16:39; 
16:39; 
16:39i 
16:39; 
16:39i 
16:39; 
16:39: 
16:39: 
16:39: 
16:39: 
16:39: 
16:39: 
16:39: 



27 MONTR 

27 MONTR 

28 USER 
28 USER 
28 USER 
28 USER 
28 USER 
28 USER 
28 USER 
28 USER 
28 USER 
28 USER 
28 USER 
28 USER 
28 USER 
28 USER 
28 USER 
28 USER 
28 MONTR 
28 MONTR 



16:39:28 MONTR 
16:39:29 MONTR 
16:39:29 MONTR 

16:39:29 MONTR 
16:39:30 USER 
16:39:30 USER 
16:39:30 USER 

16:39:30 USER 
16:39:30 USER 
16:39:30 USER 
16:39:30 MONTR 
16:39:30 MONTR 
16:39:30 MONTR 

16:39:30 BLABL 
16:39:30 MONTR 



16:39:31 
16:39:31 
16:39:31 



USER 
USER 
USER 



16:39:31 MONTR 
16:39:31 MONTR 

16:39:31 MONTR 
16:39:32 USER 
16:39:32 USER 
16:39:33 MONTR 
16:39:33 MONTR 
16:39:33 MONTR 



I Sa-fcj. la^s ii He. ]C>h. 



.LOGIN 115103, 320571/LOCATE:6 

JOB 5 PITT DEC-1099/B 63A.45B TTYSst? Mon 28-Jul-80 1639 

[LGNJSP Other jobs same PPN] 

Last login: 28-Jul-80 1629 

Usage ratio: 0.00 Units used: 19.0 

SYS B DOWN 0000-0800 MON AUG 04 FOR REGULAR HARDWARE MAINTENANCE 

SYS B DOWN 0000-0300 TUE JUL 29 FOR REGULAR SOFTWARE MAINTENANCE 

DUE TO HARDWARE PROBLEMS THERE IS ONLY ONE DISK DRIVE AVAILABLE 
FOR PRIVATE USER PACKS. 

* PLEASE READ THE FOLLOWING INFORMATION: * 
« FILE SUBJECT 

* SYS: NEWS No fee for 1022 usage * 

* NEW: TEKLIB.HLP New Tektronix software » 



$J0B[1 1 51 03, 320571 ]/0UTPUT: 5/LOC: 6 ■ 

$DATA 

.SET CDR QAA ; created by OPRSTK 

$EOD <J ^ 

.EXECUTE NEWTON. FOR < 

LINK: Loading 
[LNKXCT NEWTON execution] 

16:39:30 USER STOP 

End of execution FOROTS 5B(1001 ) 
CPU time: 0.13 Elapsed time: 0.65 
EXIT 



— ■ fWii liiei-N Htco«-Wtl -fMc 
5 tore, ("/.pi^t Aa.f-^ 



$E0J < 

%F\H: 

.DEL SPL:QAA.CDR 

FI les deleted: 

QAA. CDR 

18 Blocks freed 



^iqn- o(f- fAe ia-f^cty \o\>. 



; created by OPRSTK 



i^ ^ EoJ 



;;; END OF--J0§''aFTER 6 CARDS ;;; 

.KJOB'^PL:JOBAAA.LOG=/W/B/Z:5/VR:2/VS:6839/VL:15/VC:0/VT:0/VD:R/VJ: 

Total of 1 block In 1 file in LPTS6 request / Sequence number 6839 

Other Jobs same PPN 

Job 5 [115103,320571] off TTY357 at 1639 28-Jul-80 Connect=l MIn 

Disk R+W=66+28 Tape 10=0 Saved all files (18 blocks) 

CPU 0:00 Core HWM=13P Unlts=0.0079 ($0.59) 



rOG File for the JOB FORT 



CHAPTER 10 
TAPE HANDLING 



10.1 Magnetic Tape 

The simplest and the least expensive medium for mass storage is the 
magnetic tape. It is a plastic tape coated with iron oxide which may be 
magnetized to record information. A typical 10. 5- inch reel of magnetic tape is 
one-half inch wide and up to 2400 feet long. The width of the tape is divided 
into either 7 or 9 tracks , one of v^ich, is reserved for parity bit track to 
detect transmission error. Hence, a 7-track tape has six information tracks and 
a 9-track tape has eight. Characters are written across the width of the tape. 
Figure 10.1 shows the present industry standard of the magnetic tape format. 

To read frcsn or to write onto a magnetic tape, the tape reel is first 
mounted on a tape transport , also called a tape drive . There is a take-up reel, 
and a capstan pulling the tape past the read/write heads. Information is 
written on the tape by sending current through the write-heads to magnetize the 
tracks; information is read from the tape by sensing the induced voltage as the 
read-heads pass over the recorded (and magnetized) tracks. 

Access speed is essentially a function of the tape speed and the packing 
density of information. Tape speeds of commercially available tape drives range 
from 10 to 200 IPS (inches per second) . The standard packing densities of a 
7-track tape are 200, 556 and 800 BPI (bits per inch) , and those of a 9-track 
tape are 800, 1600 and 6250 BPI. High tape speed coupling with high packing 
density result in a requirement for higher-speed synchronization, both 
mechanically and electronically, and such tape drives would be more costly. 
Typical recording and access rates are 30 to 320 kilo-characters per second. 

Magnetic tapes are not inherently designed for a specific packing 
density, but is usually certified by their manufacturers at a particular BPI. 
The certification implies that the manufacturer has recorded test patterns at 
that density and successfully read back the data at or below an allowable error 
rate. Seven-track and nine-track recordings can be made on the same type of 
half- inch wide tapes. However, tapes recorded on a 7-track tape drive cannot be 
played back on a 9-track trape drive, and vice versa. Cai the other hand, once a 
tape is erased, it may be used again on either type of drive. 

Generally, there are two techniques for synchronization of writing 
characters on a tape. One requires that the tape has a pre-recorded timing 
track, which is a track containing all I's to indicate each character position 
in the tape. The other is to use an internal clock generator during the write 
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7-track 
tape 



data 1 



d_ata_2_ 
_da±a„J^ 



data 4 



data 5 



d eta 6 

lateral parity track 




0.5" 



_data_4 

data £■ 

data Q, 

jdata 1 

9-track j data 2 

tape jZI„_lateraJ parity track 

_dati 3 

data 7. 

data 5 



0.5" 



end of tape 
reflecting strip 




beginning of tape 
reflective strip 



record 



record rec 



record 



record 



^- 



Ky 



record gap 

.75" In 7-track tape 

.6" In 9-track tape 




Records have variable lengths. The Industry standard 
format has 7-track tape records containing from 24 to 
4008 characters, and 9-track tape records from 18 to 
2048 characters. 



Figure 10.1 Magtape Format 



operation. When a clock generator is used, it is nearly impossible to guarantee 
that the tape moves at exactly ths same speed between twD successive operations, 
and hence inserting a modified record between two existing records is normally 
not possible. This necessitates strictly a sequential use of the tape, and 
modifying a tape really means copying the material with changes onto another 
part of the tape or onto another tape. 

As shown in Figure 10.1, at the beginning of each reel of tape, there is 
a sensing strip to denote the start of information; at the end there is another 
strip signaling the end of tape, which prevents the drive mechanism frcsn pulling 
the tape off its reel. These are respectively the beginning and the end of tape 
marks (BOT/BOT) . Files written on a tape are separated by an end-of-file 
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mark (EOF) vAiich may be written or sensed by program. In addition, a gap about 
.75" (for 7-track tapes) or .60" (for 9- track tapes) is inserted between two 
successive records, not only to delimit two records, but also to allow time for 
the tape to accelerate or decelerate before the heaSs reach the beginning of a 
record . 

Many operating system requires that the files be delimited by identifying 
records, called header labels and trailer labels . These labels are in addition 
to the end-of-file marks. A typical header label would contain the name (or 
number) of the file and certain jAiysical characteristic of the file. Programs 
can be designed to check and verify that the correct tape and correct file have 
been mounted on the tape unit for use. 



10.2 EECtape ® 



During the early sixties, one nonstandard tape system was developed for 
small computer systems by the Massachusetts Institute of Technology, Digital 
Equipment Corporation adapted this system and call it ISlCtape. It is a highly 
successful magnetic tape and is used extensively on all EEC computers as vrell as 
in many minicomputers. It provides a low-cost and highly reliable auxiliary 
monory. EECtape utilizes a 10-track read/write head. Reliability of storage is 
accomplished by redundant recording of all data. As shown in Figure 10.2, the 
track format shows twa identical sets of tracks. Redundant recording of each 
characters bit on non-adjacent tracks greatly reduces bit dropouts and minimizes 
the effect of skew. The timing and mark tracks are pre-recorded, and they 
control the timing of operations within the control unit and establish the 
format of the data contained on the information tracks. Since the tape drive 
operations and many control function lock-step with the timing-track signals, 
wide variations of tape speed do not affect its performance. 

The data tracks of a raiCtape are located in the middle of the tape, where 
the effect of skew is minimum. The data is one bit position of each track is 
called a line or a character. Since twelve lines make a ward, the tape can 
record 36-bit data words. During normal data writing, the system disassembles a 
36-bit word and distributes the bits so that they are recorded as t\^lve 3-bit 
characters. 

A 260-foot reel of EECtape is divided into three major areas: end zones, 
extension zones, and the information zones. The two end zones, each 
approximately 10 feet, mark the E^ysical ends of the tape and are used for 
winding the tape around the heads and onto the take-up reel. These zones never 
contain data. "Hie extension areas mark the end of the information region of the 
tape. Their length is sufficient to ensure that once the end zone is entered 
and tape motion is reversed, there is adequate distance for the drive to ccme up 
to a proper tape speed before entering the information area. The information 
area consists of blocks of data. The standard length is 578 blocks, each 
containing 128 data words ncxninally. In the rac Systeitv-lO aH>lications, part of 
the information area is used as file directory, and total usable information 
area is 574 blocks. The file directory can accommodate a maximun of 22 
filenames. IJierefore, the capacity of a ESCtape used in TEC System-10 is either 
22 files or 574 blocks, vrtiichever limit is reached first. Since each block 
format is symmetric with the block nunber at both ends, search of blocks may be 
done in either direction, the EECtape serves not only as a data storage medium, 
but also as a random access device. 



(R)Registered trademark. Digital Equipment Corporation, Maynard, Mass. 
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3/4" 



data track 1 
data track 2 
data track 3 

^ mark track 

timing track 



ti min g track 

marU +rack 



data 1A 



_data„2A_. 
data„_3A_ 



' dupl Icate tracks 



total length - 260 feet 



end I extension 
zone area 



block 



block 



block 



block 



block 



extension end 
area zone 



information area - 240 feet 



DECtapes used for DEC System-10 have a capacity 
of 574 Information blocks, and its file directory 
has a capacity of 22 filenames. A DECtape 
reaches the I imit of Its capacity when either of 
these two limits is reached. 



Figure 10.2 DECtape Format 



In comparison, lECtape has higher-performance, and is more reliable and 
convenient to use than the magnetic tape. Being a directory device, it may be 
used in the same way as the disk, but with more storage capacity for individual 
users. On the other hand, it storage capacity is puny by comparisons A 
2400 '-reel magtape at 5250 BPI can store about 125 millions characters, while a 
DECtape reel can only store about 300,000 characters. 



10.3 Preliminary Proc edures 

After a user acquires reels of magtape (coined word for magnetic tape) or 
EECtape, there are certain preliminary procedures that should be^ performed. A 
typical Computer Center installation stores at its protiise hundreds or thousands 
of reels of tapes. Among the magtapes, some are 7-track tapes, and same are 
9-tracks. Even for the same type of magtapes, they may have different packing 
density. Although the system installation can handle all various combinations, 
it will be extremely important to reduce the chance of human error of mounting a 
wrong tape, however rare the chance may be. 
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Each computer installation will generally develop a security verfication 
procedure for tape mounting. These procedures vary frcm one installation to 
another. The procedure described below is implemented at the University of 
Pittsburgh. Users at other installations should inquire at their Computer 
Center . 

Two preliminary steps are involved; 

(1) Registration of tapes This is a clerical step of registration of 
tapes with the personnel of the Computer Center. A Pitt VID (Visual 
Identification) is issued upon registration. The VID is a serial number with 
either an A-prefix or a B-prefix, They are respectively for DECtapes and 
magtapes. For example, A1004 and B313 are the VIDs of a EECtape and a magtape 
respectively. Once a VID nutnber is assigned, it is displayed outside of the 
tape reel. The VID is an essential part of identification that must be given in 
a MOUNT command. 

(2) Labeling of tapes For EECtapes and 9-track magtapes, an 
additional means of safeguarding the identification of tapes is available. The 
numerical part of the VID is recorded in the first file of the tape. When the 
tape is mounted, not only the operator will seek the right reel with the 
specified VID, the system will read the first file to get the recorded VID and 
verify that against the VID given by the user in his MOUNT command. The 
labeling process does not apply to 7-track tapes. The process of labeling tapes 
is accomplished by calling a program named TAPliBL, after the tape has been 
mounted. Call for the TAPLBL is done by a monitor canmand: 

R TAPLBL 

When a pranpt symbol returns, apply a labeling command of the format: 

DVNAME: /density switch 

v^iere DVNAME; = physical or logical name of the tape drive; 

/density switch = a switch to specify packing density. 

Acceptable density switches are: 

/8 = 800 BPI for OTB: 

/I = 1600 BPI for MT8: or m?9: 

/6 = 6250 BPI for MT9; only 

The density switch is not applicable to the EECtapes or 7-track magtapes. 
One caution should be exercised in using the TAPLBL program: It will write the 
label onto the first file on the tape. If the tape is a EECtape or a blank 
m^tape, it does not matter. If the tape contains some stored information 
already, using the TAPLBL would destroy the first file. Therefore, in labeling 
a magtape with stored information, a scratch tape should be used to copy the 
files. After the labeling process, the contents of the scratch tape may be 
copied back. These are now illustrated by three examples below: 
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Example ; To label a raiCtape vrtiose VID is A1004 vrtiich is already 

mounted on the EECtape drive with a logical name of Tl: 

.DRIVES DTA 

.MOUNT DTA:Tl/m/VID:A1004/NL 

.R TAPLBL 

*T1: 

. DISMOUNT 

. UNDRIVE 

Example : To label a 9-track; blank magtape for 800 BPI. Assume the 

VID to be B313 and the logical name of the tape drive to be Tl: 

.DRIVES MT8 

.MOUNT MT8:T1/WE/VID:B313/NL 

.R TAPLBL 

*Tl:/8 

.UNDRIVE (UNDRIVE will force a DISMOUNT.) 

Example Magtape B123 has prestored information, and magtape B124 is a 

scratch tape. The following shows first to "park" the content of B123 in B124. 
After the label is made, the information is copied back: 

^DRIVES MT9(2) 

[mount MT9:T1/WE/VID:B123/NL 
[ MOUNT MT9 : T 2 /WE /VID : Bl 24 /NL 
.R MTCOPY 

*T2:=T1: Park infer, of Tl in T2 temporarily 

.R TAPLBL 

*T1: Make label on Tl 

.R MTCOPY 

*T1:=T2: Copy back info from T2 to Tl . 

.DISMOUNT Tl: 
.DISMOUNT T2: 
UNDRIVES 



With a tape thus registered and labeled, the user is now ready to process 
his tape. 



10.4 Allocation of Tape Drives and Mounting of Tapes 

The reservation for tape drives and the mounting of a user's tape 
precedes the actual tape processing. Tape drives are restricted devices and are 
made available to user only at a reservation request (by the connoiand DRIVES) . 
Mounting of a tape requires a jAiysical effort from the machine operator, since 
these tapes are stored off-line at the Computer Center pronise. A monitor 
ccxtmand MOUWT, alorg with its associated switches, will tell the operator to 
mount the user's tape. Details of the tvro important conmands DRIVES and MOUOT, 
and their companion commands UNDRIVES and DISMOUNT, have been covered in 
Chapter 8 (Sections 8.8,8.9,8.10) 
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10.5 Sequential Processing of Magtapes 

The DECtape is a directory device, in vrtiich files are represented by the 
standard file specification of EEV:NAME.EXT. The users need not be concerned 
with the physical location of the read/write heads with respect to the tape 
track at any time. From the user usage point of view, a file on a DECtape is no 
different fron one on disk. There is a difference in access time, of course. 
But as far as commands and instructions are concerned, what can be aj^lied to a 
disk file can also be applied to a ISlCtape file, that is, once the EECtape is 
mounted . 



■Hie magtape unit, however, is quite different. There is no directory or 
filenames. Records are separated from each other by the end-of-record mark, and 
the files are separated from each other by the end-of-file mark. The only 
identity a tape file has on a tape is that it occupies a certain sequential file 
position, such as file No. 4. Therefore, the principal way of locating scxne 
information on a magtape is to start at some reference point (such as at the 
beginning of a tape) then to go forward (or sometimes go backward) certain 
nunnber of records or certain number of files. Hence, processing of tapes deals 
a great deal with the sequential positioning of the tape. The following are 
several PIP commands with magtape switches and their monitor ccxnmand 
equivalents: 



PIP CcBimand 


Function 


Equivalent Monitor 
Command 


*Mr9: (M#NA) = 


Advance the tape N files 


.SKIP MT9: N FILES 


*l«r9:(M#ND) = 


Advance the tape N records 


.SKIP MT9: N RECORDS 


*Mr9:(M#NT) = 


Advance to the end of tape 


.SKIP MT9: EOT 


*Mr9:(M#NB) = 


Backspace N files 


.BACKSPACE MT9: N FILES 


*MT9:(M#NP) = 


Backspace N records 


.BACKSPACE MT9: N RECORDS 


*Mr9:(MF) 


Mark end-of-file 


.EOF MT9: 


*DEV: (MW) 


Rewind the device, v^iere 
DEV = Er^A,^f^7,MT8,or MT9 


.REWIND DEV: 



If the command indicates "MT9:", that command also applies to MT7: and 
MT8: In a typical application, a magtape is used only as a means of mass 
storage. Data on tape will normally be transferred to the disk first for 
processing, and results will then be copied back to the tape. 



10.6 FORTt^AN-10 Execution-Time Tape Control 



The foregoing discussions dealt with sequential tape processing using a 
processor such as PIP to handle file management tasks. If the tapes are used as 
the data files for input/output, there must be catnnands in the language 
processor to perform these tape handling tasks at execution time. FORTRAN-10 
has a subroutine PMOUNT (developed at Pitt) to mount the tape and a group of 
tape handling FORTRAN statements. They are outlined below: 
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Subroutine : 



Effect: 



Example ; 



CALL RMOUNT ( u , VID , WE , Label , Serial ) 

Logical unit number, 
(integer constant) 

VID, string constant 
or variable 



Write- able, 'WE' (or 0) , 
or write- lock, 'WL' — 



Standard label 'SL' (or 0), or 
no label, 'NL' - 

Used only if Label='NL' 



This is a run-time instruction for MOUNTing a magtape or a 
DECtape. 

CALL RMOUNT (1^ 'B31Z',0,0) 

This is equivalent to issuing two monitor conmands before the 

start of the current EXDRTRAN program: 

.DRIVES MT9 

.MOUNT MT9:1/WE/VID:B313 



Chice the tapes are properly mounted, the FORIKAN-IO tape control 
statements may be applied to control these devices. 

The device control statements are now summarized below which has been 
presented before in Chapter 3 as Table 3.22. 



Statement 


Function 


REWIND u 
UNLOAD u 


Move and re-position the file back to the first record. 


Rewind the source reel so that the tape is complely off 
the take-up reel. The tape will be ready for unloading. 


BACKSPACE u 
ENDFILE u 


Backspace one record except if it is already at record 
No.l. This statement cannot be used for files stit up 
for random access, list-directed, or NAMELIST-controlled 

I/O operations. 


Write an endfile record in the file located on device u. 


SKIP RECORD u 


Skip one record on device u. 


SKIP FILE u 


Skip one file vrtiich follows immediately the current one. 


BACKFILE u 


Backspace to the first record of the file preceding the 
current one. 



In all above statements, "u" = specified logical unit number. 
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TAPE SERVICE PROGRAMS 



Several tape service programs will be included here in summarized forms. 
In the cases where a magtape or a DECtape is involved, it will be assumed that 
the proper preliminaries of getting a tape drive, mounting the tape and 
assigning a logical name have already been done. In the examples, we will use 
the VID of A1003, A1004, ..., B313, B314, etc., as the tape registry numbers. 
The logical names used will be Tl:, T2: , etc., except in the case of the UARC. 
program. 



10.7 The UARC Program 

The UARC (User AlChive) program is a service program for maintaining disk 
files by copying them onto a user ' s UARC tape for safekeeping . When the user ' s 
magtape is being MOUNTed, it is required that its logical name be given as UARC. 
Thus the preliminaries of using this program should be two monitor commands as 
given below: 

.DRIVES MT9 

. MOUNT MT9 : UARC/WE/VID :B313 
The UARC program may be called by the monitor command: 

.R UARC 

(message) 
* 

After a brief message, the terminal types out a prompting "*" and UARC is ready 
to accept commands. Use CTRL-Z to exit. 

Example ; * DIRECTORY *.FOR 

Function ; List on the terminal all FORTRAN files on the UARC tape. 

Example ; ^DIRECTORY LPT: = *.FOR 

Function : List on the line printer all stored FORTRAN files on the 
UARC tape. 

Example ; '^DIRECTORY UARC.DIR = *.* 

Function ; Prepare a disk file UARC.DIR that has a directory of the 
UARC tape. 

Example ; ^FREEZE *.FOR 

*THAW NEWTON. FOR 

Function ; Copy all FORTRAN disk files onto the tape. If the tape 
already stored certain FORTRAN files with the same names, 
copying will not be done if the disk files are older (in 
creation dates) , The THAW command recalls to the disk a 
tape file named NEWTON. FOR. 

Example ; The following sequence shows how to "clean up" a UARC tape 
by erasing all oldet versions of the same program. Two 
tape drives and two tapes are required. 
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Items 



Program Name 



Cal I Ing Sequence 



Functions 



Commands 



Switches 



Explanations and Examples 



UARC 



.R UARC 
*command/sw i tches 



(1) To store backup copies of disk files on user's UARC tape. 

(2) To recall UARC back copies of files back to the disk. 

(3) To report the content of the UARC tape. 



*CLEAR SERNO = Bxxxx 

To clear the tape of all previous files and write a tape 
label of "UARC" In the first file. This is required 
preliminary of tape preparation for UARC application. 
Bxxxx = tape serial number 



* DIRECTORY output file spec = input file list 

Similar to the monitor DIRECT. Wild card construction 
permitted for the input file list. 



is 



FREEZE list 

To copy the disk files in the "list" onto the UARC tape 
without deleting them. If there Is already a file of the 
same name on the UARC tape, copying will be done only if 
the creation date of the disk file is more recent. 



* THAW list 

To restore files from the tape to the disk. If there Is 
already a file on disk with the same name, restoration will 
be done only if the creation date of the tape file Is more 
recent. 



UPDATE 

To store on the UARC tape a I 

disk files. 



new and newer versions of 



» COPY SERNO = Bxxxx 

When a second tape is MOUNTed and is named as UCOPY:, this 
command will make It a UARC tape and further commands copy 
all current files onto It. This is the only way a UARC 
tape may be cleaned up and old useless files amy be erased. 
See example below. 



* SAVE TAPE.DIR 
» RESTORE TAPE. DIR 

To save the current UARC directory on disk for thawing. 



Include all old versions In the report. 

*THAW/CHECK *UPDATE/CHECK 



« DIRECTORY/ALL 

* FREEZE/CHECK 

Report the files that would be transferred. 

* FREEZE/VERIFY "^UPDATE /VERIFY *COPY/VERIFY 

Report successful transfers 



Table 10.1 Summary of the UARC Program 
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^BRIVE MT9(2) 

.MOUNT MT9:UARC/WE/VID:B313 

.MOUNT MT9:UCOPY/WE/VID:B314 

.R UARC 

*COPY SERNO = B314 ■ 

HZ 

.R MTCOPY 

*UARC: =■ UCOPY: 

.DISMOUNT UARC: 
.DISMOUNT UCOPY: 
UNDRIVE 



10.8 The ACCESS Program 

The ACCESS program is a tape maintenance program developed at the 
University of Pittsburgh. It allows the owner of tapes to specify and modify 
the access protection, to add or delete PPNs for authorized access, to attach 
comments to any tape, to request removal of tape from the library either 
temporarily or permanently, and to report the status and directory of tapes. 

Calling and execution of this program does not actually involve 
physically with any tape. Therefore, no preliminaries of reserving a tape drive 
or mounting a tape is required. 

The calling sequence for the program is as follows: 

.R ACCESS 
(message) 
*command/ switches 

Use CTRL-Z to exit frcm the program. 

The commands and the switches of the ACCESS program are summarized in 
Table 10.2. Note the notations used for PPN: 

PPN = owner's PPN under vAiich the tape is registered. 
AUXPPN = PPN authorized by the owner to have access to the tape. 

The tape directory has wide print format. If the directory will be 
listed on the terminal, a monitor command of "TTY WIDTH 132" should first be 
applied. 

Example ; * DIRECTORY 

Function ; List on the terminal all tape status registered to the PEN. 

Example ; *DIRECTORY/ON:LPT: 

Function ; Print the status report on a line printer. 

Example ; *T APE /ADD/ AUXPPN: [123456, 654321]/PROTECT:PPPP/VID:A1003 
Function ; Add an auxiliary PPN [123456,654321] to have access to the 
DECtape A1003 with an access authorization of PPPP. 



406 



CHAPTER 10 



TAPE HANDLING 



Items 


Explanations 


Program Name 


ARCHIVE 


Cal 1 ing Sequence 


.E ARCHIVE 
»command/switch 


Functions 


(1) To store a disl< file on the ARCHIVE tape and remove the 
dlsl<. file from the disk. 

(2) To restore a frozen file on the ARCHIVE tape back to the 
disk. 

(3) To report the directory of the frozen files. 


Commands 


* DIRECTORY output = input list 

To list the directory of frozen files. Similar format as 
the monitor command DIRECT. 


* FREEZE list 

To move the disk files in the "list" to the ARCHIVE 
system. 


*TEAVJ list 

To restore as disk files those in the "list". 


* DELETE list 

To delete the listed files from the ARCHIVE tape. 


» PROTECT file<xyz> 

To change protection code of a frozen file to<xyz>. 


Switches 


/LIST Used v\ih THAW , FREEZE , PROTECT and DELETE to 
list the pending request. 


/KILL Used with THAW , FREEZE , PROTECT and DELETE to 
delete the pending requests. 



Table 10.3 A Surrniary of ARCHIVE Coinmands and Switches 



10.10 Ttie CHANGE Program 



The CHANGE program is a tape- translation program that converts the files 
on a magtape of one format to an output (usually a disk) of another format. The 
program is called by a monitor command: 

RUN PRG:CHANGE 

After the CHANGE program is called, command may be applied v*iich has the format 
of: 



Output spec/output switches = Input spec/ input switches 
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Switch 


Argument 


Explanation 


/BUFFERS 


:n 


n = number of buffers to be set up 


/ADVANCE 
/BACKSPACE 


:n 
:n 


Advance or backspace n files before processing. 


/BLOCK 


:n 


n = blocking factor in number of records per block 


/RECORD 


:n 


n = number of characters per record 


/DENSITY 


:BPI 


BPI = tape density In BPI: 556,800, 1600, or 5250 


/LABEL 


:arg 


The argument "arg"'''is one of the following: none, DIGITAL, 
BURROUGHS, IBM, on GE635. 


/MODE 
/PARITY 


:arg 


The argument "arg"""Is one of the following: 

ASCI 1 7-bit /iSCI 1 code 
HPASCll 8-bit, ASCII 
IMAGE 36-bit DEC-10 word 
EBCDIC EBCDIC code 


:arg 


The argument "arg" is either ODD or EVEN. 


/INDUSTRY 
/NOINDUSTR 


Y 


Initialize for industry compatible 9-track tape. 
Turn off INDUSTRY switch. 


/SCAN 
/NOSCAN 




Scan file for file named 
Turn off SCAN switch. 


/ERROR 
/NOERROR 




Report parity and checksum errors. 
Turn off ERROR switch 


/REWIND 


:arg 


The argument "arg" is one of the following: 

BEFORE Rewind before processing. 
AFTER Rewind after processing. 
ALWAYS Rewind always 
OMIT Rewind neither before nor after. 


/LIST 
/NOL 1 ST 




List the device directory. 
Turn off the LIST switch. 


/FLIST 
/NOFLIST 

/CRLF 
/NOCRLF 




List the device directory, file names only. 
Turn off the FLIST switch. 

ASCII file has CR-LF after every record. 
Turn off the CRLF switch. 



Table 10.4 A Summary of Selected CHANGE Switches 
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The magtape is the most frequently used low-cost portable bulk storage 
medium. Unfortunately, there are many different tape formats and tape produced 
on one type of computer generally cannot be directly run on another type. There 
are differences in coding method, block sizes, word sizes, tape density, parity 
system, etc. When a tape containing data or program is obtained from another 
installation that has a different type of computer, the tape must be first 
translated to the local format before it may be used. Thus, when the CHANGE 
program is used for the translation, the input would be the MOUNTed "foreign" 
tape, and the output would frequently be a disk file. The same set of switches 
is applicable for both the input and the output. Selected switches are 
tabulated in Table 10.4. A complete description of the CHANGE program, with 
conmands and switches, is given in Reference 6. 

Example ; .DRIVE MT8 

.MOUNT MT8:T1/WL/NL/VID:B313 

.RUN PRO: CHANGE 

CHANGE 08:44 11/18/80 

READY. 

> DISK. FOR/MODE .-ASCII/RECORD: 80/BLOCK: 1 0- 

# MT8 : /MODE: EBCDIC/RECORD: 80/BLOCK: 1 0/INDUSTRY- 

# /LABEL:IBM 

Function ; This procedure will convert a foreign tape procluced from an 
IBM/360 or 370 to a ASCII disk file named DISK-FOR. A dash 
at the end of a CHANGE command line indicates that the 
command is to be continued on the next line. In response, 
CHANGE returns a different "#" prompt symbol on the next 
line. 



10 . 11 Tape Transfer and Comparison Programs - IVtrCOPY, DTCOPY and FILCOM 

Three service programs associated with tape-to-tape transfer and 
comparison tasks are included here: 

MTCOPY: magtape-to-magtape transfer 

DTCOPY: DECtape-to-DECtape transfer 

FILCOM; Verification of transfer by file comparison 

They are summarized in Tables 10.5, 10.6 and 10.7. 
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I ferns 



Program Name 



Cal I Ing Sequence 



Function 



Input switches 
Output switches 



Function Switches 



Default 
conditions! 



Examp les! 



Exp lanatlons 



I^TCOPY 

.R MTCOPY 

*outtape : /outswitohes 



■intape : /inswitahes/funoswitohes 



Where outtape: = physical/logical name of destination tape, 

intape: = phyiscal/ logical name of source tape, 

outswitch = switch for output tape characteristics 

inswitch = switch for input tape characteristics 

funcswitch = function switch 



To copy the contents of an Input tape onto an output tape. 



Must be placed on the proper side of the command. 

/6 6250 BPI (9-track tape only) 

/I 1600 BPI (9-track tape only) 

/2 200 BPI (7-track tape only) 

/5 556 BPI (7-track tape only) 

/8 800 BPI (7 or 9-track tape) 

/A:N Advance N files before operation 

/B:N Backspace N files before operation 

/E even parity 

/I IBI^ compatible mode 

/R Rewind before and after operation (default) 

/U Unload after operation 

/Z Suppress monitor error recovery on READ errors 

May be placed on either side in the command. 

/C:N Copy N fi les 

/C Copy to double end-of-file marks 

/G Proceed on errors 

/M:NNNN Set maximum blocksize permitted to NNNN 

/N Suppress automatic rewind 

/V:N Verify to double end-of-file marks 



What will happen If no switch is placed on the command: 

1. Density is 6250 BPI for 9-track, 800 BPI for 7-track 
unless there Is a SET DENSITY monitor command applied. 

2. Odd parity, DEC-compat ible, maximum blocksize=1024. 

3. Copy and verify tape. Rewind before copying and 
verifying. Stop on errors. 



*TP1: = TP2:/8 

Copy a tape at 800 bpi 



New tape is on TP1 



*NEW:/R/A:3 = 0LD:/R/A:2/C:3/V 

Copy files No. 3, 4, 5 on OLD: onto the NEW: 

No. 4, 5,6. 



tape as f I les 



Table 10.5 A Summary of MTCOPY Program 
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Items 


Expl anations 


Program Name 


DTCOPY 


Cal 1 Ing Sequence 


.R DTCOPY 

OUTPUT: = INPUT :/switohes 

where OUTPUT: = physical/logical name of the de£;tination DTA. 
INPUT :^ =. physical/logical name of the source DTA 


Function 


1. To copy the entire content of one DECtape onto another. 

2. To clear the output DECtape. 

3. To compare word by word two DECtapes. 

4. To load a bootstrap loader. 


Switches 


/C Copy a! 1 blocl<s. 

/N No directory listing. 

/V Comapre two DECtapes (verifying) word by word. 

/Z Zero out the output DECtape. 



Table 10,6 A Summary of DTCOPY Program 



Items 


Explanations 


Program Name 


FILCCW 


Cal 1 ing Sequence 


.R FILCOM 

*output = inputl, input2/ switches 

where OUTPUT = output file specs; default is TTY: 
inputl, inputZ = two input file specifications 


Function 


To comapre two versions of a file and output the differences. 


Switches 


/Q Print out the message "?F1LE ARE DIFFERENT," but do not 

1 ist the differences. 
/A Compare two files in ASCII codes. 
/B Do not disregard blank lines. 
/S Ignore spaces and tabs in the comparisons. 



Table 10.7 A Summary of FILCOM Program 
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A SUMMARY OF PIL LANGUAGE 



PIL ("Pittsburgh I^nterpretive Language) is a conversational language 
vAiich contains extensive man-machine interactive facilities to provide 
assistance in error diagnosis and error recoveries. It is much more 
error-tolerant than the conventional algebraic languages such as EXDRTRAN. PIL 
was included in the First and the Second Editions of this book (ta^X) chapters) . 
With the rise in computational maturity of the user community, even for the new 
users, PIL becomes less important than before. Therefore, only a summary will 
be included in the Third Edition of the book. Users interested in more details 
should consult either Reference 5 or Reference 6, 

The PIL processor may be called by a monitor command: 

R PIL 

The computer will respond by typing out at the terminal: 
READY: 



The PIL processor is now ready to process the user's program or commands. 

A. 1 Rules on PIL Variables, Constants and Expressions 

(1) PIL variables : 

a. Variable name must begin with a letter, and must not be longer than 

ten characters. 

b. Upper and lower cases are different variables. (FORTRAN users, 

beware) 

c. All numerical variables are real variables. 

(2) Constants 

a. There are 3 types of PIL constants, numeric, string and Boolean. 

b. Numeric constants are real constants, ranging from E-42 to E+34 with 

8 decimal digit precision. 

c. String constants are enclosed in quotes, such as "TIME-SHARING" 

d. Two values for Boolean: THE TRUE and THE FALSE. 
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(3) Subscripted variables ; 

a. There is no practical limit of dimension of subscripts. 

b. Subscripts may be positive, zero, or negative. 

c. No declaration statement is needed for dimension. 

(4) Expressions ; 

a. Arithmetic expressions; PIL arithmetic expressions follow the same 

rules as those for the FORTRAN language. The PIL library functions 
are tabulated in Table A.l. 

b. Boolean expression: Expressions that are really true- false 

questions. Boolean operatiors are tabulated in Table A. 2. 

c. String expressions: String variables may have the following 

operations: 

Concatenation ; For example, "ABC"+"xyz"="ABC.xyz" 

Masking : By use of SUBS function. 

String multiplication : Same as multiple concatenation. 

Table A. 3 shows a list of PIL string functions. 

A. 2 Statement Labels 

In a stored PIL program, each statement carries a numerical label for 
identification. The label has a format of "rammm.nnnn" where mmmm is a four 
digit part nuntoer and "nnnn" is another four-digit step number . Thus the label 
takes on a form of a decimal number, and as in conventional practice, the 
leading and the trailing zeros are omitted. For example, the label of 1.25 
means Part 1, step 2500, 

A- 3 Some Basic PIL Statements 

Substitution : SET X=E 

SET X1=E1,X2=E2,X3=E3,... 

where X=variable, and E's=expressions. 

Transfer ; TO step m.n 
TO part m 

v*iere m.n is the statement label. 

Execution : DO step m.n 
DO part m 

Termination ; DONE 
STOP 
EXIT 
LOGOUT 



Subprogram Format 


Meaning 


Examples 


Format 


Value 


ABS OF X, \x\ 


Absolute value of x 


ABS OF -3.12, \-3.12\ 


3.12 


SQRT OF X 


>nr 


SQRT OF 2.1 


1.4491376 


SIN OF X 


sin X 


SIN OF 0.32 


0.31456656 


COS OF X 


cos X 


COS OF 0.32 


0.95923542 


SIN OF x/OOS OF X 
ATM OF X 


tan X 


SIN OF 0.32/COS OF 0-32 


0.33138940 


tan"' X 


ATAN OF 1.5 


0,98279374 


DOG OF X 


loq.o X 


DOG OF 2 


0.30102998 


LN OF X 


loqe X 


IN OF 2 


0.69314718 


ANTIIiOG OF X 


10* or antiloq.n x 


ANTILOG OF 2 


100.0 


EXP OF X 


e" 


EXP OF (-2) 


0.13533528 


IP OF X 


Integer part of a number x 


IP OF 3.21 


3.0 


FP OF X 


Fraction part of a number x 


FP OF 3.21 


0.21 


XP OF X 


Exponent of x 


XP OF 12.34 


i.n 


DP OF X 


Digit of X 


DP OF 12.34 


1.234 


MAX OF (a,b,c,...) 


Maximum value of a set of 
numbers a,b,c,... 


MAX OF (1,2,3) 


3.0 


MIN OF {a,b,c,.,,) 


Minimum value of a set of 


MIN OF (1,2,3) 


1.0 


RN OF X 


Assign a randcm nimber between 
and 1 to the variable x 


RN OF X 


x=0. 65302564 



Title argument of the subprogram RN OF must be a variable. The argument of 
any other above subprogram may be a constant, a variable or an arithmetic 
expression. 
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PIL Library Functions 
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PIL Operators 


Meaning 


Examples 


short Form 


Long Form 


< 


$LT 


< 


A<B 


=< or <= 


$le; 


N< 


. __„_A1LE B 


— 


$m,.___„ 

$NE 


* 


, A=B„_,. 

A $NE B 


=> or >= 


$GE 


> 


^_ A $_GE. B 

A>B 


> 


$GT 


> 


& 


$AND 


n 


X>3 $AND X<10 




$0R 


u 


X<3 $0R X>10 




$NOT 


X 


§NOT X>3 
A $XOR B 




$XOR 


e 1 



Table A, 2 PIL Boolean Curators 



String Functions 


Meaning 


Examples 


short Form 


Long Form 


L OF X 


LENGTH OF X 


length of a string 


L OF "ABCDEF" =6.0 


UPPER OF X 


UPPER CASE OF X 

LOWER CASE OF X 

THE FIRST n 
CHARACTERS OF X 


Force all letters in 
X to upper cases. 


UPPER OF "abcde" = "ABODE" 


LOWER OF X 


Force all letters in 
X to lower cases. 


LOWER OF "ABCDE" = "abcde" 


n $FC X 


masking 


2 $FC "ABCD" = "AB" 


n $LC X 


THE LAST n 
CHARACTERS OF X 


masking 


2 $LC "ABCD" = "CD" 




THE VALUE OF X 


To convert a string 
of numer ical 
characters to 
numerical values. 


THE VALUE OF "3.1" = 3.1 




THE BCD VALUE 
OF X 


To convert a string oi 
numerical value to a 
numerical character 
str ing , 


THE BCD VALUE OF 3.1 = "3.1" 


SUBS OF 
(S,A,L) 


SUBSTRING OF 
{S,A,L) 


To mask a string S 
from its Ath char, 
for a length of L 
characters. 


SUBS OF ("TIMESHARING", 3, 4) 
= "MESH" 



Table A. 3 PIL String Library Functions 
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Conditional : m.n IF b, OS 

v*iere m.n=statement label of this statement 
b=Boolean expression 
OS=an object statement 

Variations: 

m.n IF b, OSl; ELSE 0S2 
m.n IF b, OSl; 0S2 

A. 4 Loop Statements 

(1) Specified indexes : FOR i=ml,m2,. , . ,mn: OS 

(2) Unity increment: FOR i=m to n: OS 

(3) Specified increment : FOR i=m to n by p: OS 

(4) Specified decrement or special terminating condition : 

FOR i = m by p UNTIL b: OS 
FOR i = m by p WHILE b: OS 

A. 5 Input/Output Statements 

(1) General form : 

Demand list 
TYPE list 

(2) Input with free format: 

DEMAND IN FREE FORM, list 
v^A^ere "list" contains the variables in the input list. 

(3) Input/output with format 

DEMAND IN FORM i, list 
TYPE IN FORM i, list 



A. 6 Input/Output Format 



Format specification : 



FORM i. 

(Specify format field on the second line.) 
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F-type and I- type: _._ 

E-type : 

Combined format: , !!!! 

String field: ######## 

Field separation and termination: "\" symbol, for example: 

Variable field length: 

A. 7 Subprogram' Statements 

Subprogram defining statement ; 

PROCEDURE XXXXXX [XI, X2,..,,Xn] = PART m 

where: PROCEDURE = a PIL keyword to specify a subprogram 

XXXXXX = name of the subprogram, and also the name of the variable 
vAiose value is computed by the subprogram, and after 
execution of subprogram, returned to the main program. 
All intermediate results are deleted after the execution 
of subprogram. 

If the subprogram is to return multiple value answer, for 
example, roots of an equation, XXXXXX will then be an array 
and represented by a subscripted variable. 

[X1,X2,.,. ,Xn] = a set of dummy parameters passed to the subprogram. 

Use square brackets. 
PART m = the part specified as the subprogram. Part m must be so 

written that Xl,X2,...Xn are the input parameters and 

XXXXXX is the computed result. 

Subprogram execution statement ; 

DO PROCEDURE XXXXXX [Al , A2, ... ,An] 
where Al,A2,.,.,An are the input parameters to be passed to the subprogram. 



418 APPENDIX A PIL SUMMARY 

A. 8 File Management Statements 

To save a program ; 

SAVE as "FLNAME", list 

To delete a file ; 

DELETE FILE "FINAME" 

To edit a program ; 

CHANGE "OLD" TO "NEW" IN STEP m.n 
CHANGE "OLD" TO "NEW" IN FORM i 

To change a step or a part number ; 
REDEFINE STEP m.n TO p.q 
REDEFINE PART m TO n 
REDEFINE FORM M TO n 

To delete items in the program ; 
DELETE list 

To load a program ; 

LOAD "FIJSIAME,EXT[m,n]" 

vrtiere; FUSiAME = file name 

EXT = extenison of file. Default extension is PIL. 
[m,n] = PPN of file owner. Default is user's own PEN. 

To attach a file ; 

ASSIGN "FIiSIAME.EXT[m,n]" AS "FN" 
ASSIGN "SCRATCH FILE" AS "FN" 
ASSIGN DEV-NAME AS "FN" 

To delete an assignment ; 

DELETE ASSIOSlMENr "FN" 
EELETE ALL ASSIGNMENTS 
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A.9 File Input/Output 

File Input ; 

READ FROM "FN", list 

READ FRDM "FN", IN FORM i, list 

READ FROM "FN", IN FREE FORM, list 

File Output ; 

WRITE ONTO "FN" , list 

WRITE ONTO "FN", IN FORM i, list 

A.IO File Control Statements 

To mark the end-of-file on a file : 
MARK FILE "FN" 

To rewind a file ; 
REWIND "FN" 

To forward or backspace a file ; 

FORWARD SPACE n RECORDS ON "FN" 
BACK SPACE n RECORDS C»J "FN" 

To specify end-of-file action ; 

CN FILEMARK "FN" , DO PART m 

To cancel an end-of-file action already specified ; 
OJ FILEMARK "FN" 

To store an assignment ; 

CATALOG "FN" AS "FINAME.EXT" 
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A. 11 Execution-time Function and Program Step Input 

To furnish a program step at execution time, such as the step "m.n SET 



X=A" ; 



ENTER "m.n SET X=A" 
DO STRING "SET X=A" 



A, 12 PIL-FORTRAN Linkage 

PIL language provides the advantage of conversational mode and free form 
input format. Error recoveries and error diagnostic provisions further enhance 
its uses. Consequently, a PIL program is very suitc±ile for the input phase of a 
program, where the man-machine interaction is at its highest. 

Once execution starts, PIL program exhibits an excruciatingly slow speed 
of execution. It is primarily because PIL is an interpretive language. Every 
time a PIL statement is to be executed, it must first be translated. Thus in a 
PIL program, the program is interpreted and executed at the speed of one 
statement at a time. Error detection for debugging becomes simple because the 
program will stop at the step where error occurs. 

On the other hand, the entire FORTRAN program is compiled at one time, 
and execution takes place after the compiling. If a FORTRAN program is already 
compiled, the compiling stage is omitted. Thus a FORTRAN program is generally 
much faster to run than a PIL program, FORTRAN, however, has its drawback. 
Man-machine interaction can be implemented only at the expense of core storage 
for many printout formats, and an interactive program tends to be larger. Also, 
formats in FORTRAN are more restrictive. 

All of these adds to the fact that PIL is superior in interaction but 
inferior in speed, while FORTRAN is just the opposite. Thus, a comprcxnise is to 
use a PIL program for the data- input phase, store the data as disk files, and 
then switch to a FORTRAN program for execution, which will read the stored data 
file as inputs. 

The PIL statements for the PIL-FORTRAN linkage are: 

EXECUTE "FLNAME" 
or, RUN "PROl" 

v^ere FINAME = the name of the FORTRAN (with FOR or REL extension) program, and 
PRGM = the name of the execution file with EXE extension. 

One such application is the Interactive Engineering Program Library. The 
Programs in the Library are so structured that the PIL phase handles the input 
of data and problem definition, and the FORTRAN phase handles the execution. 
The details of the Library are given in Appendix B. 
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INTERACTIVE ENGINEERING PROGRAM LIBRARY 



A time-sharing interactive program library has been set up and in 
operation successfully to serve the faculty and the students in the School of 
Engineering since 1967. It has been one of the major tools in the 
computer-aided analysis/design instructions and research in the School. These 
programs were all designed to operate in the conversational mode, in modular 
form, and they are application- independent. Thus a differential equation solver 
program can serve those vrtno are doing work in a wide variety of fields, such as 
circuit analysis, control system, vibration, structural analysis, process 
control, etc. In this regard, these programs should also be useful to those in 
natural, medical and social sciences \*io require the same type of mathematical 
techniques but in a different field. 

For the Interactive Engineering Program Library, a user with little or no 
prior computer experience can select and use a program in the Library to solve 
his problem after a short practice session at a terminal. All instructions of 
using a program, once its execution begins, will be supplied at the user's 
terminal during execution. Thus there is no need for the user to study 
voluminous manual materials in order to use the program. 

The structure of each of the Library program utilizes the PIL-FORTRAN 
linkage technique discussed in ^pendix A. - Using one of the Library program 
REALEQ (Simultaneous Linear Equations with Real Coefficients) as an 
illustration, the linkage works this way: 

(1) The user calls for the ENG : REALEQ. PIL program. 

(2) Interacitvely the user inputs the data, defines the problem and 
selects the options, if any. 

(3) PIL program then stores these data and options in a disk file 
QZXZQ.DAT. If there is a user-defined function in some programs (for 
example, a numerical integration program) , the PIL program writes a 
FORTRAN subprogram and store it as QZXZQ.FOr. 

(4) Using the PIL command EXECUTE or RUN, the PIL program automatically 
passes the control to the monitor to execute a designated program 
ENG: REALEQ. REL. If there is a QZXZQ.FOR prepared for a user-defined 
function, it is compiled and included. The PIL program function is 
now completed, and the execution file automatically takes over. 

(5) The execution program ENG: REALEQ. REL reads the data and options 
stored in QZXZQ.DAT. 

(6) Based on the input data and option selected, ENG: REALEQ. REL executes 
and outputs the results on the user's terminal. 

(7) The Library program will generally allow the user to repeat the same 
problem but using a different method. If the user declines to 
repeat, the execution is concluded. 

A memorandum by the author was distributed to the faculty and the students in 
1969 concerning the Library. The memorandum has been revised and updated many 
times, most recently in 1980. The text of the memorandum of the most recent 
version is given in the following pages to complete the details of the Library. 
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EMGINEERING LIBRARY 




University of Pittsburgh 

SCHOOL OF ENGINEERING 
Department of Electrical Engineering 



MEMO TO: Faculty and Students, School of Engineering 

FROM: T. W. Sze 

DATE: June 1, 1969; 

First Revision, November 1, 1970; 
Second Revision, January 18, 1972; 
Third Revision, July 1, 1974; 
Fourth Revision, January 31, 1977; 
Fifth Revision, September 1, 1980. 

SUBJECT: Interactive Engineering Program Library on Device ENG: 



INTRODUCTION 



The use of cotiputers in the Engineering 
practice . 



curriculum is now a standard 



One serious problem, however, has always been the time-consuming work of 
preparing computer programs, debugging and executing them. Although libraries 
of subroutines of general interest are available, such as the IMSL pack^e, the 
process of incorporating them in a course is a major task. It usually involves 
a search through a thick catalog for a program fitting the problem, learning the 
algorithm, finding out the particular input and output requirements and types. 
In some cases, special arrangonents of large memory authorization, long 
execution time, or special periperal equipment are necessary in order to use 
these programs. Such laborious procedure has a discouraging effect to faculty 
and students using the computer effectively and extensively. 

Thus, when the ccanputer usage is included in a course, a very undesirable 
situation may sometimes emerge. Homework and projects can often be degenerated 
into long programming exercises that force the students (and instructors) to 
spend more time and efforts in getting their programs to run than to try to 
understand the course materials. 
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The Interactive Engineering Program Library was set up to overccme these 
limitations. In general, the Library will attempt to accomplish three 
objectives: 

1. The programs are designed efficiently so that the core assignment 
and execution time stay within those authorized for the student 
users, even for relatively large size problems. Therefore, no 
special arrangement or authorization is necessary. With the easy 
use of the Library, the computer will indeed become an important 
day-to-day tool. 

2. The user will not spend time in preparing programs. He will not be 
required to study lengthy program documentations; and thus there 
will be no distraction frcm the course materials. 

3. When the time and effort on the "dog work" is drastically reduced 
(see the Z^pendix section of this memo) , it will then be possible to 
upgrade the quality and the level of all engineering courses. 

The Library is currently installed on-line in all three systems (A, B and 
C) and is given a device name of ENG: It contains a group of programs of 
general interest to engineering faculty and students. By man-machine 
interaction, a problan is shaped as the user specifies the data and the option. 
Suitable instructions and ccxnments are printed out as pratipting remarks along 
the way to guide the user. All programs, regardless of their programming 
languages, are written in "conversational mode" so that the user will be guided 
in how to use the program. Hence, it is not essential for a user of the Library 
to have any in-depth knowledge of the program, the language, or the algorithm 
once he learns the simple procedure of calling and executing the Library 
program. 

Furthermore, these programs in the Library are mathematical-technique 
oriented rather than problem- and application-oriented. For example, a 
differential equation solution program can be used for circuit analysis, process 
control, vibration and stress analysis, material and energy balance equations 
for chemical dynamics, system stability studies, etc. 

Although helpful , an in-depth knowledge of any programming or programming 
language is not a prerequisite to be a user of the Library.* A user will have an 
option to choose which algorithm and program for his problem. If he does not 
have any opinion, the program will pick up one that has proven general utility. 

When a Library program begins its execution, the user's function will be 
to enter numerical data and to answer YES/NO to the computer's inquiries. When 
any input data are called for, prompting information of v^at sort of data and in 
v^at format will be printed out at the user's terminal to guide him. The user 
will then supply data as asked, or answer questions posed. 



As a matter of information, a Library program consists of an interactive 
problem-defining and input stage in PIL language, but will switch 
automatically to a REL or an EXE file for execution. The REL file or the EXE 
file is prepared frcMii a FORTRAN program. 
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LIBRARY USAGE PROCEDURE 

Currently, all Library programs are stored in the device "ENG:" in 
Systems A, B and C. Procedure for Library usage includes three siraple steps: 

Step 1 ; To get on the ccxnputer, either System A, B or C. 

Step 2 ; To call and execute a chosen Library program. 

Step 3 ; To get off the System. 

If there is more than one problem or more than one run, Step 2 is 
repeated, thus, only the step-2 will be explained in some details. 

To Call and Execute a Library Program 

Suppose the name of the Library program chosen is WXYZ. Call and execute 
the program by entering a command*: (must be entered right after the prompting 
symbol) . 

.PIL ENG: WXYZ 

The computer will respond with a printout of "READY:", and will then load the 
chosen program and start the execution. The memory requriement is 
self-adjusting (another built-in feature of the Library programs) .and the user 
need not be concerned with it, unless he attempts to enter a problem too large 
for the program. Once the execution of a program begins, the user follows the 
printed instructions to enter numerical data and to answer YES-NO questions to 
complete the input phase, after vAiich ccstiputer switches to a machine program 
execution to a completion. 



* The old way of ".PIL WXYZ [33,33]" will still be valid for some period of time 
in order to allow orderly transition and revisions of departmental 
instructional materials. 
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A CCMEENSED CATAI/DG OF THE LIBRftRY 

Basic mathanatic techniques of the following areas are included in the 
Library: 

Polynomial equation solution, real and complex roots. 

Transcendental equation solution, real roots only. 

Linear simultaneous equations, real or complex coefficients. 

Basic real/complex matrix operations: +,-,* or inversion. 

Generalized inverse of a matrix. 

Other matrix operations, including determinants, Eigen values, state 
transition matrix, and characteristic equation. 

Numerical integration, with user-specified accuracy. 

Least square fits: linear, quadratic, cubic, and exponential fits. 

Ordinary differential equations, first order and second order, 
linear or nonlinear. 

Ordinary differential equations, nth order, max n=8. 

Optimization of a nonlinear function, constrained or unconstrained 

Linear prograimiing 

Fourier analysis 

Fast Fourier Transform 

Ccwiputer-aided logic design 

Simulators and cross assemblers of microprocessors. 

Graphic plots. 

Course grade management (an information managonent system) 

General utilities 



In each of these, options of methods are available for. the user's choice. 
At the conclusion of a solution, the programs ^re usually recycled so that the 
user may repeat the problon with a different method without repeating the input 
E^ase. 
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PROGRAM NAME 


PROGRAM FUNCTIONS 


BASMAT 


Matrix operations to calculate any of the following: 
determinant, inverse, Eigen values, state transition matrix, 
characteristic equation, and state resolvent matrix. 


BODE 


To calculate and plot the frequency response (Bode diagram) 
from a transfer function given as a ratio of two polynomials. 
Output in tabular plus plot form. 


CMIS 


To prepare class roster, enter test grades, calculate test 
statistics, grade opti-scan exams, determine final term grades 
according to an instructor-specified formula. 


COMEQ 


Solution for linear simultaneous equations with conplex 
coefficients, 10 complex unknowns maximum, double-precision 
conputation. Grout's elimination method. 


COGGIN 


Coggin's method for maximum/minimum search of a single variable 
function, unconstrained. 


CSMP 


To prepare a control file and submit automatically as a batch 
job. 


DFl 


Solution of first order ordinary differential equation. 
Algorithm options: 

(1) Modified Euler's method 

(2) Runge-Kutta method, 4th order 

(3) Milne's method 

(4) Adam-Moulton method 

(5) Hamming's method 
Output jprint options: 

(1) Output in tabular form only 

(2) Output in tabular form and plots 


DF2 


Solution of a second order ordinary differential equation. 
Same algorithm and output options as the program DFl. 


DFN 


Solution of an nth order (max n=8) ordinary diff equation. 
Algorithm options: 

(1) Modified Euler's method 

(2) Runge-Kutta method, 4th order 

(3) Adam-Moulton method 
Output print options: 

(1) Output in tabular form only 

(2) Output in tabular form and plots 


DIRECT 


To type out the most recent directory of the Library. 


EZLP 


To solve student-oriented linear programming problems. Help 
file available as ENG:EZLP.HLP 
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FFT 


Fast Fourier Transform for a set of samples, using the 
Cooley-Tukey algorithm. 


FIBON 


Minimization of a single variable, nonlinear function by 
Fibonacci search algorithm. 


FIT 


Least square fit for n data points. Options available are: 

(1) Linear fit: y = a*x + b 

(2) Quadratic fit: y = a*x**2 + b*x +c 

(3) Cubic fit: y = a*x**3 + b*x**2 + c*x +d 
(4). Exponential fit: y = a + b*exp(c*x) 


FOUR 


Fourier analysis on a periodic waveform. 


HELP 


To print out a copy of the file ENG:ENG.HLP 


HOOKE 


Hooke-Jeeves method of pattern search optimization 


IMAGE 


Utility package of image processing to a standard 128x128x8 
image file. Options include image print, image pixel value 
listing, transpose, linear ccsnbination , noise mixing. More 
options are in preparation. 


M8080 


A simulator for a multi-processor system onploying INTEL 
8080's. Help file available as ENG:M8080.HLP 


MATOP 


Basic operations for real or complex matrices: addition, 
subtraction, multiplication and inversion. 


MINILP 


Linear programming, interactive input phase. 


MUX 


A computer-aided logic design program of using multiplexer IC 
chip in a combinational circuit design. 


NI 


Numerical integration, Simpson's Rule, with user specified and 
controlled accuracy. 


PLOT 


To plot a curve on rectangular coordinates. 
Input options for y=f (x) : 

(1) f (x) to be specified by the user as a FORTRAN expression. 

(2) f (x) data points already stored as a disk file. 

(3) f(x) data points to be entered via the terminal. 
Output options: 

(1) Output on the terminal or the line printer. 

(2) Output from the Calccmp plotter. 


POLY 


Real and canplex roots of a polynomial equation. 
Algorithm options 

(1) Mairstow's method 

(2) Modified Newton-Rapiison' s method 

(3) Lin's method 

Normally, option 1 is reconmended. 
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QUINE 


Quine-McCluskey's method of Boolean function minimization, 12 
variables maximum. Output options of either 
sumnation-of-products, or product-of-sums, or both. 


REAIEQ 


Linear simultaneous equations with real coefficients, 30 
variables maximum. Double-precision calculations in all cases. 
Algorithm options: 

(1) Gauss elimination 

(2) Gauss-Seidel iteration 

(3) Matrix inversion 

(4) Crout's elimination 

(5) Cramer's rule 

Input data may be entered via a disk file or the terminal. 


RECO 


Generalized inverse of a matrix with real elements. Maximum 
nunber of rows is 9. 


S8080 


A single INTEL 8080 simulator program, including a built-in 
editor. Help file available as ENG:S8080.HLP. 


SCAMP 


A simulator and cross assembler for the National Semiconductor 
SC/MP microprocessor trainers. Help files available as 
ENG: SCAMPI. HLP and ENG:SCAMP2.HLP. 


SEARCH 


An optimization package of search methods to find the optimal 
values of a constrained or unconstrained, single or 
multiple-variable, nonlinear function. 


STATUS 


Same as the program DIRECT 


TEyUSlEQ 


Newton-Raphson method of transcendental equation solution, real 
root only. Use Stirling formula for numerical differentiation. 


TRUTH 


To generate a truth table, or a Karnaugh map, frcm a given 
Boolean function in the form of summation-of-products or 
product-of-sums . 


CALPLT 


To plot a curve on the CalComp plotter. 



FORTRAN-CALLABLE SUBROOTINE LIBRARY 



A group of FORTRAN-c all able subroutine packages are also available in the 
device ENG: Their names and their current status are outliend below: 



EE45 Subroutines fran the EE45 text: COMPUTER METHODS FOR 
MATHEMATICAL COMPUTATIONS, by G. E. Forsythe, M. A. Malcolm, 
and C. B. Moler, Prentice-Hall Inc., 1977. 

IMPROC An image processing package, including image filtering, 

transformation, transpose, etc. implied to 128x128x8 image 

file size. Developed by T. W. Sze. Help file available as 
ENG: IMPROC. HLP. 
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SUBSET A utility subroutine set developed by Ronal K. Nicholas, 
included in the Engineering Library by permission. For 
reference, see: SUBSET MANUAL, by Ronal K. Nicholas, 
University of Pittsburgh, 1977 (available at the Book Center) . 

SIPROC A group of signal processing subroutines. For reference, see: 
PROGRAMS FOR DIGITAL SIGNAL PROCESSING, Edited by the Digital 
Signal Processing Committee, IEEE Acoustic, Speech, and Signal 
Processing Society. Published by IEEE Press, Institute of 
Electrical and Electronics Engineers, New York, 1979. 



GRAPH 



A group of data plotting and tabulation subroutines, 
reference, see ENG: GRAPH. HLP. 



For 



ackncwledct;meiots 



The Engineering Program Library project was initiated in 1969 v^en I 
developed and taught the course ES2 (Engineering Analysis II). Later, the 
project was maintained and expanded with the help of the Engineering staff of 
the Benedum RJE site. I wish to ackowledge the assistance rendered me by 
Mr. Wayne Baughman, and many graduate assistants involved in this project, 
particularly Drs, Richard Hsia, M.S. Nataraja, A.R. Modarressi, K.D. Oka, and 
Messrs. T. Goss and H.R. Anada. Credits are also due to Mr. Frank Heyn, who 
adapted the IEEE tape and modified it into the SIPROC package of the Library. 
Last but not the least, assistance is acknowledged to Mr. Michael A. Matzek of 
the Pitt Computer Center to shift the old call-PPN of [33,33] into the device of 
"ENG:" 



The full content of this memo, minus the impend ix, is stored as a disk file, and 
may be reproduced on a line printer by a ccxnmand: 



.Q ENG:MEMO.DOC 
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APPENDIX 



ILLUSTRATIVE EXAMPLES 



Several examples are included here to illustrate the procedure of using 
the LIBRARY programs. On the reproduction of the printouts, those text that 
were typed by the user were underlined, and those typed by the terminal were not. 
In addition, comments are added as brief explanations. 

Example 1 Given the following polynomial equation, find all roots, real 
and complex: 

x7 -80x6 + 20x5 -2200x'» +1350x3 + 1350x2 - 1200x + BOO - 

The program chosen was POLY, and all three methods were run. The modified 
Newton's method turned out to be divergent, but the other two methods worked 
okay for this problem. It took 3 minutes on the terminal for this problem. 

Example 2 Solve for the solution of a system of simultaneous equations with 
complex number coefficients. The equations in matrix form are: 



20+J30 

-5-j3 

-15+J16 

0+jO 

0-J43 



-5-j3 
11-J3 

0+jO 
-6+j8 

0+jO 



1 5+j 1 6 


0+jO 


0-j't3"" 




f^ ^ 




0+jO 


-6+j8 


0+jO 




""? 




^2-j32 


8+ j 1 6 


-15+jlO 


• 


^3 


- 


1 2+ j 1 6 


23-j'»2 


-5+j 18 




^ 




1 5+j 1 


-5+j 18 


20+j 1 5 




.'^sJ 





lOO+jO 
200+J 1 00 

0+jO 

0+jO 

O+jO 



Observe particularly the error-recovery procedure built in the program COMEQ. 
When certain input data were incorrectly entered, the program allows the user 
to check the data and make corrections. This avoids repeating the input of 
large amount of data, which would have to be done if the problem must be aborted. 



Example 3 Plot a curve represented by 

-O.lx 



.359 e 



n (O.lx) sin(0.5x) 



for the range from x=0 to x=30 with an increment of unity. The program PLOT 
was used for this example, and the plot was reproduced on the terminal. Total 
time consumed on the terminal for this problem was 6 minutes. The same problem, 
using an increment of 0.1., was also plotted on the Calcomp plotter, and the result 
is also shown. 



Example 1 


'7 

1 7« c«« 'W e«ewW «M 


\\J3&Itl 115103/ 1 3Z3 1 1 1 ■ ^r ' ' 

:^K. .i riir i,Lil-ii>/7ht aui./2a itya3 

,■,-. ■-:>rd; 

. .,r,l^:, riiainitiii Last losin: 1112 4- Jan-" 

11 a 7 -Jan- 77 In 


.(Pli. EuatpouY ^- - i*wJ 

:-.:: -.u.n'.inL [rnUAIlfl.N. INTDiACTiyC PROSrcAii 

1 .;.-,;. inr;, t;:;;; [■liiinuAft. . . 


::;::,•; riic ur.EiCii uf" ;-ai.Yt;!.itu.M_ loijat(on <N); 

N ■■■ -V' 

^N^;; IN TUC OKlilT; or t:i-!JC(:NDINa rOUl^f;, COEFf 
^.(l.K FOR nl;.2INC TtlRti. USE r!«E rORKAT 
; :::, L'O ^'■.•00 IJ-iO 13S0 1300 800 


CILNTS fi: EACH TERH 
lENUED. 


::,;, Ui, ALL cniniciLNis: 

.-,( 1 1 = 1,0000 
.■.( ;"• - 00.0000 
.-,-, ,'.) = L'O.OOCO 

:.< 4> = -2::'oo.oooo 

A( S) = 1350.0000 
-,; i) = IJPO.OOOO 

..( .') = -i:,'00.oooo 

,'.; tj> = BOO. 0000 

.! c; Lik- NO' :^YL'S 

w.uu KLriinnr, arl .watlai^ll: 

OrriDtJ 1 ^ liAlRGVUii-C IIETHOB 

ornoN 2 = Hoiiiricu .niutoh-s iicTiion 

fir-TION 3 = LIM'5 hCrHfJi:! 
■■UU^rU (-'OliMArL CIRCI.'HSTANrtK. nPTION 1 IS RECOM 

;;;•! ;;iti = >1 


'f fORE 1 3'w."<c4«.j ««^»««*c«#y /> mi<^-«c la^jutjt. fft^rm^ tttaiHn 

i..\: cijrio.-j i 

ssiiiiioM nr EAiffaruu's w:Tnon: 


KCnr NO. RCAL lARI IrtAU PART 

1 0.9iA4L+00 

2 O.lOllEtOl 

3 o.2oi7E:too o.r>3i:icioo 

4 0.2£;17EI00 -O.S.'.ISEIOU 

5 -0.3493EI00 0.530iEt01 

6 -0.34?3E+00 -0.a306E^01 

. a007E^ 02 _J 


^ iZej-tt. 





WANT TO TRY AHOTIIER METHOD FOR THE 
IF YES. TYPE NEU OPTION NUMBER. 



NEWTON'S METHOD IS DIVERUENT. TRY 

UANT TO TRY ANOTHER METHOD FOR THE 
JF YES. TYPE NEW OPTION NUMBER 

SOLUTION BY LIN'S METHOIlJ 



SAME PROBLEM? 
F NO, TYPE O: 



ANOTHER METHOD, 

SAME PROBLEM? 
IF NO, TYPE O: 



REAL PART 

0.2U17Ef00 

0,2817Et00 
-0.VAA4EI00 

O.lOllE+Ol 
-0.3492E+00 
-0.3492E+00 

0.0009E102 



0.5313E+00 
-0.5313E+00 



0.530iE+01 
-O.MOAE+Ol 



WANT TO TRY ANOTHER METHOD FOR THE SAME PROBLEM? 
IF YES, TYPE NEW OPTION NUMBER. IF NO, TYPE O: 



END OF EXECUTION 

CPU time: 1.08 ELAPSED TIME! 43.23 

EXIT 



WTPr 



%{tfZx t; j.t off i4e i^tht^ 



Job 31 C11S103, 1323413 off TTY63 at 1122 7-J3r.-77 Cor.nect=3 Mir. 
Disk R+U=210+33 T3PI? 10=0 Saved all files <12 blocks) 
CPU o:04 Core HUM=10P Units=0.0130 (»0.93) 

Tot»| -tiiot oX •A* WmmAl = 3 m;««ft« 



434 



APPENDIX B 



ENGINEERING LIBRARY 



)U»9B» n5l03/l3234lt 
lASI 37-J.ir,-7.' 



Cty 1 ! To jtf •• *i« tjitt. 



a 61Ei.7'^A TTY6J 

Lait laainl 1244 27-Jan-77 






LOAMNG THC FROI'iRAH NOU... 



jui cnjoris or if,tt< im-ui nn: auaiiaf>le: 

(If TION I • * AMI « h.-.lRlCIS SUFfLItD FROii 

OPTiaH ? < A A»ii « riAiRircs sirppi.iF.D FRnn 



Py ROta'Br I'l 



VALCF^ OF CHMFLFX Ct 
•TE Df FEALIiIKAlilfliC 
a-Hftir[x ' 50 '^Al UtS 



ID » 


■ S -1 -IS \t. 


rt rt 




-S -1 


(1-1 no 


-♦ « 




-ilT 1* 


4£ -IL 


V 1 , 


' -l^l?) 


< 


-la -11 i< 


M S*'") 


-« la 


g -^^ 


0.C -IT l« 


^a_ 


....«» H 



CMICR 5 CLCMKNTS OF B-MATRK (10 WALUCSH 



<«• INFliT DATA CHECK •<• 



-S.OO0)OCI00 



i.ooeooetoi s.oooooEfOt 

-X.SOOO->EF01 l.AOOOOCtOt 
0.OUU90EFO0 -'(.JOOOOeiOl 

-S.OOOOur+OO -T.OOOOOE+00 

o.OiJOooiTKio n.oociiOEtoa 
o.ooa<K)c«ao o.oocooEtoo 

-l.SOOOOEFOl l.iOOOOEFOl 
4.300aoE«ai -3.20OOOC«Ol 
-I.SOOOOb'tOt U.OOOOOEtOO 

A'.oroaoF+oo a.oooooE+oo 

-l.:0>»IOE»01 l.iOOOOEFOl 

~r>,. ort;iAhf Foo I . nooA.H" »oi 

O.OOOOAF+00 -4.J000(IC*0I 
-1. so 1001 101 i.Oi>00«K*OJ 
3.i/oUO<i£F0t 1 .SOOOO-L+Ol 



HCJ nitur N'wnCRS are uronot 

i.;r I :luu ih Fr.cc KORn> the rou and coluhn 

(' .: I' IJ AND Cm.linN NUhf^ER FAIR PER LINE 



n:u t-ORRCi:ti:D A-ELEhENFS DCLOHI 
•■10) ■• )Jfl. 

.»r lilt: tOKhtCIf.Ii A-nAIRIX RETYPED OUT FOR 



nENTS OF THE D-HATRIX. 



Entt^ lA^t J*U 



MAT VE3 OR NOI 






-A.OOObOEFOa 
2.30CbOE*01 



ilUntiERS OF EACH INCORRECT 



CHECKING NOU» 



U-HATRIX CIIECKl 
ROU REAL 



INAO 



1.00000CF02 O.OOOOOEFOO 

2.000r,i)ri03 1.00OOOEFO2 

O.OOOOOriOO O.OOOOOEFOO 

o.ooooof:foo O.OOOOOEtOO 

O.OOOOOEFOa O.0OOO0E4OO 



NOU SUITCHINO TO FORTRAN EXECUTION. 
LOADINO 



H-HATRIXl 
ROU It 
ROU 21 
ROU 31 
ROU 41 
ROU SI 



0.r000E«02 O.3O0DC4O2 
-0.1^0ori02 0.1600F-F02 
0<O000E«O0 -0.4300Ef02 

-O.SOOOCFOl -0.3000rF01 

o.ooooEFoo o.oocor.too 

O.OOOOCtCO O.OOOOEtOO 
-0.i:00Ct02 O.160OCF03 

0,4200t<02 -o.3:oor*o2 

-OflSO0C4a2 O.IOOOEt07 

O.OOODEFM O.OOOOEtOO 
-O.1200rtO2 0.1400Ct02 
-O.SOOOEFOl 0.1800Cta2 

O.OOOOEtOO -0.4300C+02 

-o.isooEto: o.ioooFto: 

0.2000E»02 0.1S00EF02 



O.lOOOe-FOS O.OOOOEtOO 

0.200aCta3 0.100DC«03 

O.OOOOEFOO o.ooooooo 

o.oaooctoo o.ooooctoo 

o.ooooE'tao o.ooooE«ao 



OR NO! 

TED our? YES OP N0» 



SOLUTION OF THE COMPLEX SInULTANEOUS EO' 

REAL PART INAOINARY PAR 

X< 1) - tl.3777SS -3.2S1V4 

X< 2J • 27.S42S3* 8.3S«43 

XI 3) > 7.S»«13« -7.042S7 

X( 41 - I2.3I7AS? -l.«SSBS 

XI S> • 7.040064 -2.10017 



P/.-Ato«t oF 



lATIONSI 

HAONITUDE PHASE ANOLEIDEQJ 



12.03SOA 
20.79221 
10.31033 
12.43270 
7.40077 
^<>iltl 



-13.82 
U.74 

-41.83 
-7.01 

-li.Oy 



ED- 



, S+tf. J 1 To jei eff *!<«, s-jtix^ . 



J4 tllMOl. 1.12141 J nff IIYSS 41 lAI* 27-J'r,-77 Coo 
[ti4K K4U>t4?f.fl Tai'<> I0>0 liavo*! 4tl fll^^ (lU Mockft) 
CF'U 0:07 Corp HWM--'IL'r Uitit&«0*0170 (♦l.2'3» 



T«U1 4r.v». .t i>M t»«-«<;«*l 3 ( 



Cems<at«r 'ti«t tUc4 



7 itUnil 



Example. -3 

JLOS 1 N 1 1 5 I o V 13 :.'T4T> — ' — 

lilt .'8 II f I lil-:C-1077/B 61B.72A TTY63 



Sf«, ii To 3«t «*€ tjtbt-% 



Last loairi! 14bl 27-j3ri-77 
Thur 



■ |pit- B»>fe:Pi.oT t - 



S''^Cr 2 : To Mil «->Jl C)ia*u(ll 



iNirf-AmiyE: plotting frogram . 

i-;-.XIMliH ClifACITY: PLOTTING A CURVt OF 151 DATA POINTS. 

llfiliLNi: THr f'ROCKAh NOUr... 



IhRr t liPTIONS ARE AVAILAllLE; 

OtridN 1 = TO PLOT A CUKVE FOR Y'=F<X) UHICH UILL BE SUPPLIED BY YOU 

OITIDN ? = TO PLOr A CUKUE WITH COORDINATES ALREADY STORED ON FILFr 

OfTlON 3 = TO PLOT A CURVE WITH DATA TO BE ENTERED AT THIS TERMINAL 



pri ION 



Hit) ryi-ES OF PLOTS ARE AMAILAtLE.' 

T.i'f 1 = F-LOr rMJliUCFD ON TERMINAL OR LINE PRINTER 
TVPE 7. ■-- flOT PI;OmjCED ON CALCOMP PLOTTER 

full CAW (iPThIN the PRINTER OR TTY PLOT RIGHT AFTER EACH RUNr BUT YOU 
n,.";i UI-%IT UNTIL THE NEXT DAY TO GET THE CALCOMP PLOT. ON THE OTHER 
iff.::ii, l-.ftLrCttP PLOT IS OF MUCH SUPERIOR QUALITY. 

rmiii'JE I us: type of plot you want: 



iiiju hct^r f oiNTS to be plotted <NPT=?)? 

C.ll NOr CON.'IISE NUMDER OF INCREMENTS WITH NUMBER OF POINTS. IF YOU 
llfiVi: 100 INCkEMENTSr YOU SHOULD SPECIFY 101 POINTSt AS AN EXAMPLE. 

rJi-l = ni 



UHAF IS THE OALUE OF THE LAST X (X2=?) ? 

lYFE THE rOKTRAN EXPRESSION OF F(X>t SUCH A3: 
3. 12*ITXP<-3.S*X)*SIN(377.«X) 

l-LIEIAT: FtllV-TKAN EXPRESSION, NOT PIL EXPRESSION. 

'.;iiirp nx) 

r ( X ) = ?.0."i59«EXP<-.l*X)«SIN(0.1»X)«SIN(0.5*X) 



NOU READY TO SUITCH TO FORTRAN EXECUTION... 

FORTRAN: OZXZQ 

FCN 

LOADING 

PLOT 6K CORE 
EXECUTION 



TYPE THIS COMMAND TO RECEIVE YOUR OUTPUT ON LINE PRINTERI- 

Q PLOT.LPT/FILESFORTRAN 

TYPE THIS THIS COMMAND TO RECEIVE OUTPUT ON YOUR TERMINALS- 
TTY WIDTH 132 
TYPE PLOT. LPT 

YOU MUST GET YOUR OUTPUT BEFORE NEXT PLOT RUN. 

OTHERUISEi THIS OUTPUT UILL BE ERASED AND REPLACED BY NEU PLOT OUTPUTS. 



END OF EXECUTION 

CPU TIMES 0.73 ELAPSED TIMES 4.53 

EXIT 
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, 1 lY UlliTII i:< 

. r,'i'i: i»i 



}Cai»<Mo«\«(j 't'O «p<Txlv>,«,« "tlie plot 0>1 tJ>t t*<-Mi'<\«il 



UIE SCAl £■ PACIOR OF CIRPINArEI 1 DIViarON= 0.50000i:-02 

TMt; SCALE FACTOF) OF AliSniSHAi 1 DIWIBION- O.lOOOOE+01 

FIKGT flPSCISSA VALUE X<1)= O.OOOOOEIOO 



(MULTIPLY BY SCALE FACTOR 0.50000E-02) 
10 20 30 4 



10 20 30 •< 

(MULTIPLY BY SCALE FACTOR 0.50000E-02) 



•EZEJ- 



St^ S ■ "To get off Me S<fsh^ . 



Jnh 28 El tSlOJf 132341;] off TTYA3 at 1511 27-Jari-77 Coririecl-6 Min 
lusk h;+w=23-1>57 Tape lO-O Savpc) all files (IB blocks) 
rflJ OiOB Core HUM>=16P Units=0.0195 (»1.46) 
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calcomp plotter output of Example 3 




EXAMPLE 3 



INDEX A 



GENERAL INDEX 



ACCESS program, 403 
ANSI Standard, 81 
ARCHIVE program, 405 
ASCII code, 8 
ASPEX Program, 280 
Array processor, 134 



B 



BATCH, 367-392 

compiling and execution 
commands, 376-379 

disk storage control 
commands, 37-376 

end-of-deck command, 375 

error recovery commands, 384,387 

examples, 380-388 

inclusion canmand, 377 

line interpretation, 383 

sign-off canmand, 374 
Batch, switches, 388 

sign-on commands, 371 
Batch jobs, to submit 

via OPRSTK, 83,208,349,389 

via cards, 72,84,389 

via terminal, 83,208,349,389 
Batch processing, 1 
Batch modules, 374-379 

compiling module, 377,379 

disk storage module, 376,379 

execution module, 378,379 

inclusion module, 378,379 

sign-off module, 374,479 

sign-on module, 374,379 
Batch software system, 368-370 

Batch controller, 370 

Queue manager , 368 

Output spooler, 370 

Staker, 368 
Bauds, 11 



c 

CUSP, 4 
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CalConp subroutines, 247-270 

annotations with symbols 
and numbers, 253 

axis, scales and labels, 254 

basic pen movements, 251 

initializing and termineiting , 250 

lines and curves plottirtg, 255 

redefining origin and sc;ale, 250 

simple geometric patterns, 256 

symbol table, 252 
Calccxnp Plotter Primer, 247-270 
CHANGE program, 406 
Checklist: 

computation errors, 149 

data errors, 146 

data errors, 146 

input/output errors, 152 

logic errors, 150 

program readability, 152 
Codes: 

AEfi, 252, 261 

ASCII, 8 

CalComp Symbol, 252 

EBCDIC, 10 

Sixbit, 10 

protection, 28 
Compiler diagnostics, 154 

mnemonic code for warnings, 158 

mnemonic codes, 156 
Computer gr applies, 225-284 
Control characters, 17-18 

CTRL-C, 17 

CTRL-I, 17 

CTRL-0, 17 

CTRL-R, 17 

CTRL-U, 17 
Control file, 370,371 

to create, 314 

to sutxnit, 316 
Conversational program, 7 
Coordinate: 

direct, 262 

screen , 262 

user's, 262 

virtual, 262 
CSMP, 185-224 

a primer, 185-206 

DYNAMIC segment, 195 

INITIAL segment, 195 

SORT and NOSORT sections, 195 

TERMINAL segment, 195 

data statements, 201 

examples, 211 



General Index 
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execution control statements, 204 

format, 194, 176 

job execution, 209 

job preparation, 207 

library functions, 197 

output control statements, 206 

structure statements, 196 

symbols, constants, operators, 194 

translation control statements, 202 



D-statement, 170 

Data line multiplexer, 2 

EECtape, 395 

DECwriter, 11-18 

Delimiter, 35 

Device: 

logical name, 286,321,338 

physical name, 285,320,338 

system, 320,338 
Diagnositics: 

compiler, 154 

run-time, 155-167 
Dial-up line, 8 
Differential equations, 187-189 

numerical solution, 189 
Direct Graphics, 261 
DTCOPY program, 408 



EBCDIC code, 10 

Ekaiting programs (UPDATE) , 70 

Editor, text, 33-80 

ENG: device, 228-236,239,423-437 

Engineering program library, 423-437 

Errors: 

checklists, 146,149,150 

coding, 138 

dimension out-of-bound , 168 

logic, 138 

problem definition, 138 
Executive system, 4 



FILCCM program, 408 
Files, 27 

basic concept, 27 

control, 370,371 

specifications, 27 
Flow chart, walkthrough, 139 



FORDDT program, 175-182 

commands 

example, 179 
FORFLO program, 142 

switches, 144 
FOROTS diagnostics, 155,159 
FORTRAN 77, 135 
FORTRAN debugging, 137 
FORTRAN format, 110-112 

alphanumeric field. 111 

ccanplex, 112 

logical field, 111 

numeric field, 110 

scale factor, 110 

variable field width. 111 
FORTRAN program, 
FORTRAN program, to enter, 82 
FORTRAN program, to load, 85-90 
FORTRAN program, to execute, 85-90 
FORTRAN-10, 81-184 

alphanumeric format field. 111 

assignment statements, 99 

blank line, 97 

comment line, 95 

cOTipilation control commands, 97 

compiler listing, 162 

constants, 93 

continuation line, 95 

control statemetns, 100 

debug line, 95 

DEC subroutines, 117 

device control statements, 112 

expressions, 94 

file control statements, 107 

FORMAT statements, 110 

input-ouput statement summary, 106 

input-output keywords, 101 

library functions, 96 

list directed input-output, 103 

loader switches, 90 

logical field format, 111 

logical units, 102 

multi-statement line, 95 

multiple-entry subprogram, 115 

namelist, 103 

numeric field format, 110 

OPEN/CIDSE statements, 108 

Pitt subroutines, 118 

print carriage control 
characters, 113 

randcxn access records, 103 

READ statements, 104 

specification statements, 98 

statement sequence, 97 

statements, 95 

subprogram statements, 114 

transfer modes, 101 

variable field width, 111 

variables, 94 

WRITE statements, 105 
Full-duplex, 8 
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Graphic devices: 

calligraphic, 226 

raster ized, 226 
Graphics terminal, 19, 259 
Graphics: 

direct, 261 

interactive, 271 

menu, 271 

screen, 261 

virtual, 261 



H 



Half-duplex, 8 

High-order language, 192 

How to: 

change mind on output, 359 
change protection code, 352 
change your password, 23,328 
check computation errors, 149 
check data errors, 146 
check input/output errors, 152 
check logic errors, 150 
choose a system, 326 
communicate with others, 330-333 
compile a stored FORTRAN 

program, 85,376 
copy a file, 73,353 
copy a tape, 408-410 
create a file by batch, 72,375 
create a file from a terminal, 72 
debug a FORTRAN program, 137-184 
delete a file, 352 
do managonent of files, 294,350-354 
do word-processing jobs, 299-313 
draw a picture on DEC -10, 245-279 
edit a EXDRTRAN program, 84 
enter a FORTRAN program, 82 
enter a program/data file, 33-80 
execute a stored FORTRAN 

porgram, 85,378 
get system status reports, 333 
label a tape, 397 
link between a PIL job and 

a FORTRAN job, 420 
link between a PIL job and 

a batch job, 421 
load a stored FORTRAN program, 85 
manage your file by UPDATE, 72-74 
merge several file into one, 73,353 
operate a terminal, 8-26 
plot a curve on DEC-IO, 227-244 
prepare a flow chart, 142 



register a tape, 397 
safekeep a program/data 

file, 401,405 
set characteristics of 

a terminal, 344-345 
set right margin of terminal, 344 
sign-off, 25,328 
sign-on , 21 , 326 
sort alphabetically/numerically, 

297-298 
submit a batch job, 72,83-84,208, 

349,389 
suhxnit for output, 355-365 
trace program execution, 173-174 
transfer files, 291-293 
understand diagnostic messages, 

154-167 
use Engineering Program Library, 

424-437 
use a tape, 393-410 
use disk as virtual memory, 317 
use tape drives, 336-343 



I 

IMSL Package, 131 



K 

Keys: 

backspace, 16 

control characters, 17-18 

control, 15 

delete, 15 

ESC, 16 

linefeed, 15 

repeat, 16 

retrun, 15 

shift, 16 

special characters, 15-16 

tab, 16 



Labels, header, 395 

Labels, trailer, 395 

Language, simulation ancJ modeling, 209 

Line number, UPDATE, 34 

absolute, 34 

relative, 34 
Line, transmission, 8 

dedicated, 8 

dial up, 8 

hardwired, 8 

shared, 8 



General Index 
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M 

MPB, multi-program batch, 367 

MTCOPY program, 408 

Modeling, dynamic, 185 

Modeling, mathematical, 187 

Modem, 2 

Monitor , 4 

Monitor commands, 320-366 

communication, 330 

facility allocation, 336-343 

file management, 350-354 

file output, 354 

job initiation, 326 

job termination, 328 

program compiling, loading 
and execution, 347-349 

QUEUEing for output, 355-353 

source file preparation, 335 

status report, 333 

TTY control, 344-346 
Multi-programming, 1 
Multiprogramming system, 1,367 
Multprogram Batch, 367-392 



PIP program, 285-296 

PIP switches, 286, 291-296 

X-switch, 291 

compunded, 294 

file directory managonent, 294-295 

transfer with editing, 291-293 
PLOTIO Package, 264 
Ploter output preview, 241 
Plotter, digital, 245 
Plotting , 

on a graphic terminal, 264 

on a plotter, 236 

on a printer, 227 

on a terminal, 227 
Pointer (UPDATE) , 34 
PPN, 7 
Protection code, 28 



Q 



QUEUE switches, 361-363' . 
Quota, disk storage, 23-25 

login, 24 

logout, 24 



R 



Operating Systems, 320-366 
OPRSTK program, 314-316, 



Password, 23,328,374 

to change, 328 
PIL, 412-422 

constants, 412 

expressions, 413 

library functions, 414-415 

subscripted variables, 413 

variables, 412 
PIL statements, 413-421 

conditional, 416 

execution, 413 

file control, 419 

file management, 418 

input and output, 416 

input/output format, 416 

labels, 413 

loop, 416 

subprogram, 417 

substitution, 413 

termination, 413 

transfer, 413 
PIL-FORTRAN linkage, 420,423 
PIL-OPRSTK linkage, 421 



Rasterization, 226 

Record, 27,34 

RUNOFF program., 299-313 

RUNOFF commands: 

RUNOFF commands, 302,312 
basic, 302-306 
mode setting, 312 
page formatting, 311 
parameter setting, 313 
text formatting, 310 

RUNOFF swithces, 308-309 

Run-time diagnostics, 155-167 



Screen Graphics, 261 
Sign-Off, 25 
Sign-On, 21 
Simplex, 8 
Sixbit code, 10 
SORT program, 297-298 
SSP Package, 130 
SUBSET package, 123 
Supervisor , 4 
Swapping device, 27 
Symbol, prcmpt, 6 
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Tape, 393-411 

labeling, 397 

DECtape, 395 

drive, 393 

labeling of, 397 

magnetic, 393 

mounting and dismounting 
of, 337-343,398 

registration of, 397 

sequential processing cc«nmands,399 

tracks, 393 

transport, 393 
TAPLBL program, 397 
Tape service programs, 401-410 

ACCESS program, 403 

ARCHIVE program, 405 

CflANGE program, 406 

DTCOPY program, 409 

MTCOPY, 409 

UARC, 401-2 
Teletype, 11 
TEKPLT program, 241 
Terminal Control System (PLOTlO) , 264 
Terminal, 8-26,259 

CRT, 18 

dunnb, 20 

graE*iics, 19,259 

intelligent, 20 

keiix>ard, 15 
Time slice, 2 
Time-sharing, 1 
Turn-around- time , 2 
TYPE command, 364 



VERPLT program, 280 
Virtual Graphics, 261 
Virtual memory, 317-318 



w 

wild card, 28 
Windows, 362 
screen, 262 
virtual, 262 



$ 



$-cards, 371 



u 



UARC prog ran, 401 
UPDATE, 33-80 

auxiliary file, 63 

completion commands, 42 

compounded ccmmands, 47 

conditional editing catimands, 65 

copy ccanmand, 52 

editing control conmands, 54 

file managanent by, 72 

length-control conmands, 62 

line deletion command, 40 

line insertion mode, 44 

line insertion, 41 

line-output command, 41 

move ccxnmand, 49 

parameter-setting conmands, 58 

pointer-movement commands, 37 

text-changing conmands, 39 
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This INDEX includes a list of ccxnmands or subprograms for rapid 
reference. The legend of entries is: 

Ccsnmand or Subprogram Name (Processor Name) , Page number 

For example, the entry "SCALE (CALCOMP) , 252" means a subprogram named SCALE for 
the CalComp Plotter processor, and its description may be found on page 252. 
The following processors are included in the Quick Reference: 

BATCH Ccmimands in the Batch processor 

CAICOMP Subprograms in the CalComp Plotter Subprogram Package 

PRG:PLTLIB.REL 
Engineering Library Library programs in the device ENG: 
FORTRAN Subroutines in the System FORTRAN Library 
MC^IITOR Ccattmands in the System Monitor 
PIL Commands in the PIL Processor 

PLOTIO Subroutines in the Tektronix Graphic Package PLOTIO 
SUBSET Subprograms of the SUBSET package, developed by 

Ronal K. Nicholas. 
UPDATE Commands in the UPDATE text editor 
USL User Program Library 



B 



AlIN (PLOTIO) , 279 
AlOUT (PLOTIO) , 279 
ACCESS program, 403-405 
ACQUIRE (PIL) , 421 
ADVANCE (UPDATE) , 64 
AINST (PLOTIO) , 279 
ALTER (UPDATE) , 39 
AMAXX (SUBSET) , 124 
AMINX (SUBSET) , 124 
ANCHO (PLOTIO) , 269 
ANCHO (PLOTIO) , 279 
ANMODE (PLOTIO) , 269 
ANSTR (PLOTIO) , 269 
ANSTR (PLOTIO) , Y 
AOUTST (PLOTIO) , 279 
ARCHIVE program, 405-406 
ARROW (UPDATE) , 56 
ARROW (UHDATE) , 55 
ASCEND (FORTRAN) , 121 
ASPEX program, 280 
ASSIGN (MONITOR) , 336 
ASSIGN (PIL) , 418 
AT (UPDATE) , 37 
AXIS (CALCOMP) , 252 



BACK SPACE (PIL) , 419 

To-4 

BACKFILE (MONITOR) , 400 

BACKSPACE (MONITOR), 399,400 

BACKTO (BATCH) , 384 

BAKSP (PLOTIO) , 269 

BASMAT (Library ENG:), 428 

BELL (PLOTIO) , 264 

BMD (BATCH) , 385 

BODE (Library ENG: ) , 428 

BREAK (UPDATE) , 62 



CALPLT (Library ENG: ) , 430 
CARTN (PLOTIO) , 269 
CATALOG (PIL) , 419 
CHANGE (PIL) , 418 
CHANGE (UPDATE) , 39 
CHANGE program, 406-407 
CIRCL (CALCOMP) , 256 
CMIS (Library ENG: ) , 428 
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COGGIN (Library ENG: ) , 428 
CCMEQ (Library ENG: ) , 428 
COMPILE (MCNITOR) , 347 
COPY (MONITOR) , 352 
COPY (SUBSET) , 124 
COPY (UPDATE) , 52 
CORE (SUBSET) , 123 
CPUNCH (MCNITOR) , 356 
CSMP (BATCH) , 385 
CSMP (Library ENG: ) , 428 
CURRENT (MONITOR) , 333 



DASHA (PLOTIO) , 267 
DASHL (CAITOMP) , 255 
DASHP (CALCCMP) , 251 
DASHR (PLOTIO) , 267 
DASHSR (PLOTIO) , 278 
DATE (EXDRTRAN) , 117 
DAYTIME (^CNITOR) , 333 
DCURSR (PLOTIO) , 270 
DEASSIGN (MONITOR) , 339 
DECK (BATCH) , 375 
DELETE (MOSIITOR) , 352 
DELETE (PIL) , 418 
DELETE (UroATE) , 40 
DEMAND (PIL) , 416 
DFl (Library ENG: ) , 428 
DF2 (Library ENG: ) , 428 
DFN (Library ENG: ) , 428 
DIRECT (Library ENG: ) , 428 
DIRECT (MOSIITOR) , 350 
DISMOUNT (MOSIITOR) , 343 
DO (PIL) , 413 
DONE (PIL) , 413 
DONE (UPDATE) , 42 
DPB (FORTRAN) , 120 
DPBN (FORTRAN) , 120 
DRAWA (PLOTIO) , 267 
DRAWR (PLOTIO) , 267 
DRAWSA (PLOTIO) , 278 
DRAWSA (PLOTIO) , 278 
DRAWSR (PLOTIO) , 278 
DRIVES (MCNITOR) , 340 
DRWABS (PLOTIO) , 265 
DRWREL (PLOTIO) , 265 
DSHABS (PLOTIO) , 265 
DSHREL (PLOTIO) , 265 
ETCOPY program, 408-410 
DWINDO (PLOT'lO) , 267 



EE45 (Library ENG: ) , 430 
BLIPS (CALCOMP) , 256 
ELSE (UPDATE) , 67 
END (UPDATE) , 42 
ENDPAG (CAIT-OMP) , 250 
EOD (BATCH) , 375 
EOF (MOSIITOR) , 399,400 
EOJ (BATCH) , 374 
ERASE (PLOTIO) , 264 
ERROR (BATCH) , 384 
ERRSET (FORTRAN) „ 117 
ERRSNS (FORTRAN) „ 117 
ERRSNS (FORTRAN) „ 166 
EXECUTE (MONITOR) , 347 
EXECUTE (PIL) , 420 
EXIT (FORTRAN) , 117 
EXIT (PIL) , 413 
EZLP (Library ENG: ) , 428 



FACTOR (UPDATE) , 58 
FFT (Library ENG: ) , 429 
FIBON (Library EISIG: ) , 429 
FILCOM program, 408-410 
FINISH (UPDATE) , 42 
FINITT (PLOTIO) , 264 
FIT (Library ENG: ) , 429 
FOR (PIL) , 416 
FORDCfT program, 
FORFID program, 142 
FORM (PIL) , 416 
FOROTS program, 
FORTRAN (BATCH) 



175-182 



155 
, 376 



FORWARD SPACE (PIL) , 419 
FOUR (Library ENG:) , 429 
FROM (UPDATE) , 64 



GAG (UPDATE) , 57 
GET (UPDATE) 65 
GOTO (BATCH) , 384 
GRAPH (CAIT-OMP) , 250 
GRAPH (Library ENG: ) , 231 
GRAPH (Library ENG: ) , 431 
GRAPH2 (CAIT.OMP) , 250 
GRID (CALCOMP) , 252 
HDCOPY (PLOTIO) , 264 



ECHO (UPDATE) , 56 
EDIT (UPDATE) , 55 



H 

HELP (Library MG: ) , 429 
HELP (MOSIITOR) , 334 
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HOME (PliOTlO) , 269 

HOOKE (Library ENG: ) , 429 



LSH (FORTRAN) , 120 



I 



IDENT (SUBSET) , 123 
IF (PIL) , 416 
IF (UPDATE) , 65 
IFILE (FORTRAN) , 122 
IMAGE (Library ENG: ) , 429 
IMPROC (Library ENG: ) , 430 
INCLUDE (BATCH) , 378 
INIT (SUBSET) , 124 
INITIATE (MONITOR) , 327 
INITT (PLOTIO) , 264 
INPUT (UPDATE) , 45 
IS (UPDATE) , 45 



JOB (BATCH) , 371 
JOIN (UPDATE) , 62 



M 

M8080 (Library ENG: ) , 429 
MARK FILE (PIL) , 419 
MATOP (Library ENG: ) , 429 
MAXX (SUBSET) , 124 
METRIC (CALCOMP) , 247 
MINILP (Library ENG:), 420 
MINX (SUBSET) , 125 
MOUNT (MOSIITOR) , 341 
MOVABS (PLOTIO) , 265 
MOVE (FORTRAN) , 121 
MOVE (UPDATE) , 49 
MOVEA (PLOTIO) , 267 
MOVER (PLOTIO) , 2fa7 
MOVREL (PLOTIO) , 265 
MSFLVL (FORTRAN) , 173 
MTCOPY program, 408-409 
MUX (Library ENG:), 429 
MYJOB (SUBSET) , 123 
MYLINE (SUBSET) , 123 
MYNAME (SUBSET) , 123 



K 



KCM (PLOTIO) , 277 
KIN (PLOTIO) , 277 
KJOB (MOSilTOR) , 328 



N 

NEWLIN (PLOTIO) , 69 
NEWPAG (PLOTIO) , 269 
NI (Library ENG: ) , 429 
NJOB (MOslITOR) , 333 
NOERROR (BATCH) , 384 
NUMBER (CADCOMP) , 251 



LDB (FORTRAN) , 119 
LDBN (FORTRAN) , 119 
LENGTH (UPDATE) , 59 
LGAXS (CALCOMP) , 252 
LGLIN (CALCOMP) , 255 
LINE (CAITOMP) , 255 
LINE (PIL) , 421 
LINE (UPDATE) , 57 
LINEF (PLOTIO) , 269 
LINHGT (PLOTIO) , 277 
LINTRN (PLOTIO) , 278 
LINWDT (PLOTIO) 
LOAD (MONITOR) , 347 
LOAD (PIL) , 418 
LOCATE (SUBSET) 
LOGIN (MOSilTOR) 
LOGLOG (ENG: GRAPH) , 236 
LOGOUT (PIL) , 413 
IDGTRN (PLOTIO) , 278 
LORGIN (CAITOMP) , 250 
DOWER (UPDATE) , 57 



o 



277 



123 
326 



OFILE (FORTRAN) , 122 
ON FILEMARK (PIL) , 419 
ON SIZE (PIL) , 421 
ONTO (UPDATE) , 63 
OPRSTK (MONITOR) , 349 
OPRSTK (PIL) , 421 
OPRSTK program, 314-316 
ORIGIN (CALCOMP) , 250 
OVERLAY (UPDATE) , 61 



PAGES (PIL) , 421 
PASSWORD (BATCH) , 374 
pen™ (CALCCMP) , 251 
PENUP (CALCOMP) , 251 
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PIP program, 285-296 
PJOB (MONITOR) , 333 
PLACE (UroATE) , 61 
PLOT (CALCOMP) , 251 
PLOT (Library ENG: ) , 429 
PLOT (MONITOR), 236,356 
PLOTS (ENGiGRAM), 229,231 
PLOTIT (USL: ) , 241 
PLOTIT program, 241-243 
PLTLIB (CADCOMP) processor, 

247-258 
PLTSYM (CAICOMP) , 251 
INTABS (PLOTIO) , 265 
ENTREL (PLOTIO) , 265 
POINTA (PLOTIO) , 267 
POIOTR (PLOTIO) , 267 
POLAR (CAirC*1P) , 255 
POLAR (ENG:GRAPH) , 236 
POLTRN (PLOTIO) , 278 
POLY (CALCCMP) , 256 
POLY (Library ENG: ) , 429 
POSITICftJ (UPDATE) , 61 
POST (MONITOR) , 331 
PRESERVE (MC*IITOR) , 352 
PRIOT (MONITOR) , 356 
PRINTS (ENG: GRAM) , 236 
PROCEDURE (PIL) , 417 
PROTECT (MOslITOR) , 352 
PSCALE (CALCOMP) , 250 
HJT (UK)ATE) , 63 



Q 

QIKLOG (FORTRAN) , 237 
QIKPLT (FORTRAN) , 237 
QUEUE (MOSIITOR) , 352 
QUINE (Library ENG: ) , 430 



R (MONITOR) , 349 
READ FROM (PIL) , 419 
REALEQ (Library ENG: ) , 430 
RECO (Library ENG: ) , 430 
RECOVR (PLOTIO) , 275 
RECT (CAICOMP) , 256 
REDEFINE (PIL) , 418 
RELEAS (FORTRAN) , 117 
RENAME (Ma;iITOR) , 352 
RESET (PLOTIO) , 275 
RESOURCE (MONITOR) , 334 
REWIND (MONITOR), 399,400 
REWIND (PIL) , 419 
RMOUNT (FORTRAN) , 122,400 
RROTAT (PLOTIO) , 275 
RSCALE (PLOTIO) , 275 



RUN (BATCH) , 386 
RUN (MOSIITOR) , 349 
RUN (PIL) , 420 
RUN (SUBSET) , 128 
RLNOFF program, 299-313 



S8080 (Library ElJJG: ) , 430 
SAVE (MOJJITOR) , 348 
SAVE (PIL) , 418 
SAVE (UPDATE) , 59 
SAVRAN (FORTRAN) , 117 
SCALE (CAK^OMP) , 252 
SCALG (CALCCMP) , 252 
SCAMP (Library mGi ) , 430 
SCURSR (PLOTIO) , 270 
SEARCH (Library 13NG: ) , 430 
SEEDW (PLOTIO) , 276 
SEEDX (PLOTIO) , 276 
SEEREL (PLOTIO) , 276 
SEETRN (PLOTIO) , 276 
SEETW (PLOTIO) , 276 
SEMIOG (ENG: GRAPH) , 236 
SEND (MONITOR) , 330 
SEQUENCE (BATCH) , 371 
SET (PIL) , 413 
SETMRG (PLOTIO) , 277 
SETRAN (FORTRAN) , 117 
SETTTY (SUBSET) , 126 
SIPROC (Library 13NG: ) , 431 
SIXBIT (SUBSET) , 128 
SKIP (MONITOR) , 399,400 
SMOOT (CALCOMP) , 251 
SORT (FORTRAN) , 117 
SORT program, 297-298 
SPRAY (FORTRAN) , 121 
SPSS (BATCH) , 386 
START (MONITOR) , 347 
STATUS (Library liWG: ) , 430 
STOP (PIL) , 413 
SUBMIT (MONITOR) „ 356 
SUBSET (Library liWG: ) , 434 
SUBSTITUTE (UPDATE) , 39 
SWINDO (PLOTIO) , 267 
SYMBOL (CALCOMP) „ 251 
SYSTAT (MOSIITOR) „ 334 



TAB (UPDATE) , 59 

TEKPLT (PLOTIO) processor, 

259-279 
TEKPLT program, 241-244 
THEN (UK)ATE) , 65 
TIME (FORTRAN) , 117 
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TIME (MCNITOR) , 333 
TINPUT (PLOTIO) , 279 
TINSTR (PLOTIO) , 279 
TO (PIL) , 413 
TO (UPDATE), 37 
TOUTPT (PLOTIO) , 279 
TOOTST (PLOTIO) , 279 
TPUNCH (MOJIITOR) , 356 
TRACE (FORTRAN) , 173 
TRANEQ (Library ENG: ) , 430 
TRAVEL (UPDATE) , 37 
TRUTH (Library ENG: ) , 430 
TTY (MCNITOR) , 344 
TWINDO (PLOTIO) , 267 
TYPE (MONITOR) , 364 
TYPE (PIL) , 416 
TYPE (UPDATE) , 41 
TYPE program, 364-366 



u 

UARC program, 401-403 
UNDRIVES (MONITOR) , 340 
UPDATE (MONITOR) , 335 
UPPER (UPDATE) , 57 
USESTAT (MONITOR) , 333 



VCURSR (PLOTIO) , 270 
VERPLT program, 280 
VWINDO (PLOTIO) , 267 



w 

WHERE (MONITOR) , 334 
WHERE (UPDATE) , 60 
WKDAY (SUBSET) , 123 
WRITE ONTO (PIL) , 419 



XYPIDT (ENG:GRAPH), 231,234 
XYPRNT (ENGiGRAHl) , 236 



z 

ZERO (FORTRAN) , 121 



